Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' on vérifie si au moins un élément a été sélectionné If ListBox1.SelectedIndex = -1 Then MsgBox("Vous n'avez rien sélectionné !", vbCritical + vbOKOnly, "Erreur") Else MsgBox(ListBox1.SelectedItem.ToString) End If End Sub
Si ce n'est pas une liste à sélections multiples, tu peux utiliser ses propriétés Text et ListIndex pour connaitre respectivement le contenu de la ligne sélectionnée où son identifiant.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate sub Command1_click() Dim i As Integer For i = 1 To List1.ListCount If List1.Selected(i) = True Then instruction End If Next i end sub
Private sub Command1_click() Dim i As Integer For i = 1 To form1 .List1.ListCount If form1.List1.Selected(i) = True Then instruction End If Next i end sub