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

Soyez le premier à donner votre avis sur cette source.

Vue 3 784 fois - Téléchargée 316 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

EvilGost
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
2 -
je ne trouve pas ce source très utile pour ma part, mais bon, j'm'interroge, peut-être me tromperais-je?
peponr
Messages postés
22
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
26 février 2003
-
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 !
+++
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
pourkoi -1 . C'est plus simple ds

Sub List1_Click()
List2.listindex=list1.listindex
end sub

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.