Synchroniser deux Listbox contrôle alors quand l'utilisateur fait défiler vers le bas en un seul, la ligne correspondante dans l'autre suit. Pour ce faire, en tapant le code ci-dessous. Remarque: Les numéros sont choisis pour remplir rapidement les deux commandes de liste avec plus de lignes que la taille choisie à l'étape 2 peut contenir. Sinon les barres de défilement ne apparaîtra. Le "^" symbole calcule le cube de chaque numéro.
Private Sub Form_Load ()
Dim i, n, x As Integer
Pour i = 1 à 15
Choisissez List1.AddItem (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15")
Suivant
Pour n = 1 à 15
Choisir List2.AddItem (n, 1 ^ 3, ^ 3 2, 3 3 ^, 4 ^ 3, 5 ^ 3, ^ 3 6, 7 ^ 3, 8 ^ 3, ^ 9 3, 10 ^ 3, ^ 3 11 , 12 ^ 3, ^ 13 3, 14 3 ^, 15 ^ 3)
Suivant
End Sub
Private Sub List1_Click ()
List1.TopIndex = List2.TopIndex
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_click ()
List2.TopIndex = List1.TopIndex
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List1_Scroll ()
List2.TopIndex = List1.TopIndex
End Sub
Private Sub List2_scroll ()
List1.TopIndex = List2.TopIndex
End Sub
Private Sub Command1_Click ()
Fin
End Sub