Feedback

VB - Ausgewählte ListView Items verschieben

Veröffentlicht von am 17.12.2006
(2 Bewertungen)
Diese Funktion bewegt alle ausgewählten ListView Items entweder um eine Zeile nach oben oder nach unten.
GFU-Schulungen  [Anzeige]

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

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

''' <summary>
''' Diese Funktion bewegt alle ausgewählten ListView Items entweder
''' um eine Zeile nach oben oder nach unten.
''' </summary>
''' <param name="LVW">Die Listview dessen ausgewählte ListView Items verschoben werden sollen</param>
''' <param name="Down">
''' Gibt an ob die Items um eine Zeile nach unten verschoben werden sollen.
''' Bei False werden die Items um eine Zeile nach oben verschoben
''' </param>
Public Sub MoveSelectedLVWItems(ByVal LVW As ListView, Optional ByVal Down As Boolean = False)
    Dim OldItem As ListViewItem
    Dim OldPos As Integer
    Dim i As Integer
    If LVW.SelectedItems.Count > 0 Then
        LVW.Sorting = SortOrder.None
        If Down = True Then
            If LVW.SelectedItems(LVW.SelectedItems.Count - 1).Index < LVW.Items.Count - 1 Then
                For i = LVW.SelectedItems.Count - 1 To 0 Step -1
                    OldItem = LVW.Items(LVW.SelectedItems(i).Index + 1)
                    OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
                    LVW.Items(OldPos + 1) = LVW.SelectedItems(i).Clone
                    LVW.Items(OldPos) = OldItem
                    LVW.Items(OldPos + 1).Selected = True
                Next
            End If
        Else
            If LVW.SelectedItems(0).Index > 0 Then
                For i = 0 To LVW.SelectedItems.Count - 1
                    OldItem = LVW.Items(LVW.SelectedItems(i).Index - 1)
                    OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
                    LVW.Items(OldPos - 1) = LVW.SelectedItems(i).Clone
                    LVW.Items(OldPos) = OldItem
                    LVW.Items(OldPos - 1).Selected = True
                Next
            End If
        End If
        LVW.Focus()
    End If
End Sub
Abgelegt unter ListView.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!