Coolection listbox

Résolu
Signaler
Messages postés
96
Date d'inscription
mercredi 26 mai 2010
Statut
Membre
Dernière intervention
27 mai 2010
-
Messages postés
96
Date d'inscription
mercredi 26 mai 2010
Statut
Membre
Dernière intervention
27 mai 2010
-
Bonjour !


j'utilise une collection de listbox l'utilisateur doit pouvoir selectionner 1 seul element d'une de cette listbox a la fois.
lorsque l'utilisateur click une premiere fois sur 1 element d'une liste tout va bien.
si il  click une deuxieme fois sur un autre element d'une list box de la collection plus aucun element n'est selectionner. Or lorsque je met la proprieté Liste1(i).ListIndex = -1 pour la listbox precedement selectionnée ceci redeclenche la procédure Private Sub Liste1_Click(Index As Integer)

MON CODE
Private Sub Liste1_Click(Index As Integer)
Dim i As Integer
For i = 0 To 8
   If i <> Index Then Liste1(i).ListIndex = -1
Next
End Sub

1 réponse

Messages postés
96
Date d'inscription
mercredi 26 mai 2010
Statut
Membre
Dernière intervention
27 mai 2010

pour ce que ca interesse j'ai la solution plutot que d'utiliser l'evenement click j'utilise LostFocus.

Private Sub Liste1_LostFocus(Index As Integer)
    Liste1(Index).ListIndex = -1
End Sub