[Débutant] ListBox1_SelectedIndexChanged + ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

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:

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

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