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]

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

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!