2 Listboxen parallel scrollen und markieren Dieser Tipp zeigt, wie Sie zwei Listboxen programmgesteuert parallel zueinander scrollen können.
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  30.391
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 46 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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