List box passer d'une list box a une autre en perdant le focus

5/5 (3 avis)

Vue 4 080 fois - Téléchargée 357 fois

Description

Permet lorsque l'on a deux list box de n'avoir qu'un champ surligne dans l'une ou dans l'autre de la listBox

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
20 mars 2003 à 18:09
pourkoi -1 . C'est plus simple ds

Sub List1_Click()
List2.listindex=list1.listindex
end sub
peponr Messages postés 22 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 26 février 2003
20 mars 2003 à 14:48
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 !
+++
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 2
20 mars 2003 à 10:31
je ne trouve pas ce source très utile pour ma part, mais bon, j'm'interroge, peut-être me tromperais-je?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.