Coolection listbox

Résolu
AXELMEDICAL Messages postés 96 Date d'inscription mercredi 26 mai 2010 Statut Membre Dernière intervention 27 mai 2010 - 31 août 2006 à 12:13
AXELMEDICAL Messages postés 96 Date d'inscription mercredi 26 mai 2010 Statut Membre Dernière intervention 27 mai 2010 - 31 août 2006 à 12:24
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

AXELMEDICAL Messages postés 96 Date d'inscription mercredi 26 mai 2010 Statut Membre Dernière intervention 27 mai 2010
31 août 2006 à 12:24
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
3
Rejoignez-nous