Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Dim i As Integer For i = ListBox1.ListCount - 2 To 0 Step -1 If ListBox1.List(i) = ListBox1.List(i + 1) Then ListBox1.RemoveItem(i + 1) End If Next i ElemLie("/quincaillerie/objet/Modele", ListBox1.SelectedItem, 1, ListBox2) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question