Originariamente inviato da sara81it
Ciao a tutti, ho un piccolo problema.
Vorrei sapere se è possibile collegare 2 listbox.
Ora mi spiego meglio: in una list carico il codice del cliente e nella seconda tutti i dati relativi alla list box. I codici sono molti.
è possibile far scrollare insieme le 2 listbox?
grazie tante Sara
codice:
Private Sub Form_Load()
'Inserisci nelle liste tutto quello che ti pare
End Sub
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_Scroll()
List1.TopIndex = List2.TopIndex
End Sub
Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex
End Sub
Ciao