Soyez le premier à donner votre avis sur cette source.
Vue 3 896 fois - Téléchargée 325 fois
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
Sub List1_Click()
List2.listindex=list1.listindex
end sub
Je ne voit pas forcément l'utilité mais ça peut etre utile pour certaine personne, je pense et je l'espere !
+++
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.