1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Option Explicit
Private Sub Form_Load()
List1(0).Move 120, 120, 2265, 2790
List1(1).Move 2100, 120, 2025, 2790
Me.Height = 3405: Me.Width = 4350
List1(1).ZOrder
Dim T As Integer
For T = 0 To 50
List1(0).AddItem CStr(T) & Chr(T + 40)
List1(1).AddItem CStr(T) & Chr(T + 50)
Next T
End Sub
Private Sub List1_Click(Index As Integer)
'pour une selection(video inverse) identique
If Index = 1 Then
List1(0).ListIndex = List1(1).ListIndex
Else
List1(1).ListIndex = List1(0).ListIndex
End If
End Sub
Private Sub List1_Scroll(Index As Integer)
'le deplacement des lignes synchro
If Index = 1 Then
List1(0).TopIndex = List1(1).TopIndex
Else
List1(1).TopIndex = List1(0).TopIndex
End If
End Sub |
Partager