Rubrik: Controls · ListBox & ComboBox | VB-Versionen: VB2005, VB2008 | 04.03.10 |
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