Discussion :

[superthx]

Salut,

J'ai un listbox + picture box qui affiche l'image de l'item sélectionné du listbox.
Mon hic c'est comment éliminer un item du listbox sans avoir d'erreur au moment de l'éliminer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim Pics As String = ListBox1.SelectedItem.ToString
        PictureBox1.Image = Image.FromFile(Pics)
    End Sub
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    End Sub

Merci

[superthx]

Réponse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedItem Is Nothing Then
            PictureBox1.Image = Nothing
            Exit Sub
        End If
        Dim Pics As String = ListBox1.SelectedItem.ToString
        PictureBox1.Image = Image.FromFile(Pics)
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    End Sub