[VB6] scrollbar e listbox

[Loue]

Originariamente inviato da junx
ok ho capito.
Ti faccio un breve esempio:

Private Sub List2_Scroll()
    List1.TopIndex = List2.TopIndex
End Sub

inquesto modo scrollando la list2, scrolli pure la list1.
Da qui poi è tutto un gioco.....

Prova e fammi sapere!

ed ecco il codice completo funzionante!

Private Sub List2_Scroll()
    List1.TopIndex = List2.TopIndex
    List3.TopIndex = List2.TopIndex
End Sub
Private Sub List3_Scroll()
    List1.TopIndex = List3.TopIndex
    List2.TopIndex = List3.TopIndex
End Sub
Private Sub List1_Scroll()
    List2.TopIndex = List1.TopIndex
    List3.TopIndex = List1.TopIndex
End Sub

GRAZIE!!! :metallica

EDIT: minimissima pecca: lo scroll attivato con la rotellina del mouse non le fa muovere in contemporanea. Ma chissenefffrega!!