vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · ListBox & ComboBox   |   VB-Versionen: VB2005, VB200804.03.10
ListBox via Code scrollen

Ein Beispiel, wie sich eine ListBox ohne Verwendung der Scrollbalken nach oben bzw. unten scrollen lässt.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  17.763 
www.tools4vb.deSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Nachfolgendes Beispiel zeigt, wie man den Inhalt einer ListBox via Code nach oben bzw. nach unten scrollen kann. Hierzu verwendet man einfach die TopIndex-Eigenschaft der ListBox und erhöht bzw. vermindert diese um den Wert 1.

Private Sub btnUp_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnUp.Click
 
  ' ListBox-Inhalt nach oben scrollen
  With ListBox1
    If .TopIndex > 0 Then .TopIndex -= 1
  End With
End Sub
Private Sub btnDown_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnDown.Click
 
  ' ListBox-Inhalt nach unten scrollen
  With List1
    .TopIndex += 1
  End With
End Sub

Auch lässt sich über die TopIndex-Eigenschaft ganz einfach an den Anfang bzw. das Ende der Liste springen:

Private Sub btnHome_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnHome.Click
 
  ' An den Anfang springen
  ListBox1.TopIndex = 0
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnEnd.Click
 
  ' An das Ende springen
  With List1
    .TopIndex = .Items.Count - 1
  End With
End Sub