Hallo.
Hiermit kann man Items einer Listview mit der Maus verschieben!
Style: Details
Hiermit kann man Items einer Listview mit der Maus verschieben!
Style: Details
VB.NET-Quellcode
- Private oldItem As Integer = -1
- Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
- If ListView1.GetItemAt(e.X, e.Y) IsNot Nothing Then oldItem = ListView1.GetItemAt(e.X, e.Y).Index
- End Sub
- Private Sub ListView1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.MouseLeave
- oldItem = -1
- End Sub
- Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- If ListView1.GetItemAt(e.X, e.Y) Is Nothing Then Exit Sub
- Dim currItem As Integer = ListView1.GetItemAt(e.X, e.Y).Index
- If currItem <> oldItem AndAlso oldItem > -1 Then
- If currItem > oldItem Then
- ListView1.Items.Insert(currItem + 1, ListView1.Items.Item(oldItem).Clone)
- ListView1.Items.RemoveAt(currItem - 1)
- Else
- ListView1.Items.Insert(currItem, ListView1.Items.Item(oldItem).Clone)
- ListView1.Items.RemoveAt(currItem + 2)
- End If
- oldItem = currItem
- End If
- ListView1.Items(currItem).Selected = True
- ListView1.Items(currItem).Focused = True
- End If
- End Sub
- Private Sub ListView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseUp
- oldItem = -1
- End Sub
Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!