| Rubrik: Controls · ListBox | VB-Versionen: VB4, VB5, VB6 | 06.02.01 |
 2 Listboxen parallel scrollen und markierenDieser Tipp zeigt, wie Sie zwei Listboxen programmgesteuert parallel zueinander scrollen können. | ||
Autor:  Heinz Prelle | Bewertung:   | Views: 29.572 |
| www.visual-basic5.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Befinden sich zwei Listboxen mit einer gleichen Anzahl Elemente auf einem Formular, und soll beim Auswählen eines Elementes der Liste 1 parallel auch das entsprechende Element der Liste 2 selektiert werden, so hilft Ihnen dieser Tipp weiter.
Benötigt wird ein Timer-Steuerelement, dessen Intervall-Eigenschaft Sie auf den Wert 1 setzen. Jedesmal, wenn das Timer1_Timer-Ereignis ausgelöst wird, wird die aktuelle Position der Liste 1 mit der Liste 2 verglichen und ggf. die Position der Liste 2 neu gesetzt.
Private Sub Timer1_Timer() Dim iFirstIndexList1 As Integer Static sList1Preview As Integer iFirstIndexList1 = List1.TopIndex If iFirstIndexList1 <> sList1Preview Then List2.TopIndex = iFirstIndexList1 sList1Preview = iFirstIndexList1 End If If List1.ListIndex <> List2.ListIndex Then List2.ListIndex = List1.ListIndex End If End Sub
