Feedback

VB - Scrollen in einer Listbox

Veröffentlicht von am 15.06.2011
(0 Bewertungen)
Mit diesem Snippet, können Listboxeinträge nach oben oder unten gescrollt werden.
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

Private Sub cmdUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUp.Click
    Dim SaveEntryAfter As String
    Dim SaveEntyBefore As String
    
    If Len(Listbox.SelectedItem) > 0 And Listbox.SelectedIndex > 0 Then
        SaveEntryAfter = Listbox.Items.Item(Listbox.SelectedIndex - 1)
        SaveEntyBefore = Listbox.SelectedItem
        Listbox.Items.Item(Listbox.SelectedIndex - 1) = SaveEntyBefore
        Listbox.Items.Item(Listbox.SelectedIndex) = SaveEntryAfter
        Listbox.SelectedItem = SaveEntyBefore
    End If

End Sub

Private Sub cmdDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDown.Click
    Dim SaveEntryBefore As String
    Dim SaveEntyAfter As String
    
    If (Len(Listbox.SelectedItem)) > 0 And Listbox.Items.Count > Listbox.SelectedIndex + 1 Then
        SaveEntryBefore = Listbox.Items.Item(Listbox.SelectedIndex + 1)
        SaveEntyAfter = Listbox.SelectedItem
        Listbox.Items.Item(Listbox.SelectedIndex + 1) = SaveEntyAfter
        Listbox.Items.Item(Listbox.SelectedIndex) = SaveEntryBefore
        Listbox.SelectedItem = SaveEntyAfter
     End If

End Sub
Abgelegt unter Listbox, scrollen.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!