Private Sub Form_Load() List1.AddItem "jklmjklmj" List1.AddItem "jklmjklmlj" List2.AddItem "jklmjklmj2" List2.AddItem "jklmjklmj5232" End Sub Private Sub List1_GotFocus() List2.ListIndex = -1 End Sub Private Sub List1_LostFocus() List1.ListIndex = -1 End Sub Private Sub List2_GotFocus() List1.ListIndex = -1 End Sub
Télécharger le zip
je ne trouve pas ce source très utile pour ma part, mais bon, j'm'interroge, peut-être me tromperais-je?
Non non tu te trompe pas evilgost !!!Je ne voit pas forcément l'utilité mais ça peut etre utile pour certaine personne, je pense et je l'espere !+++
pourkoi -1 . C'est plus simple ds Sub List1_Click()List2.listindex=list1.listindexend sub
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 764 membres 62 nouveaux aujourd'hui 16 151 membres club