Drag&Drop Treeview in Listview

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Charly1000.

    Drag&Drop Treeview in Listview

    Hallo,

    kann man von von einem Treeview einen Eintrag per Drap&Drop in eine Listview kopieren?

    Im Forum habe ich Informationen zu Drag&Drop zwischen zwei Listviews gefunden. Funktioniert auch.
    Leider bekomme ich die Drag&Drop-Funktion für das Kopieren von einem Treeview in ein Listview nicht hin. Gefunden habe ich dazu nichts, was mir weiterhilft.

    Hier der Code für die Listviews (kommt von Galileo). Vielleicht kann mir jemand weiterhelfen. Komme da einfach nicht weiter...


    VB.NET-Quellcode

    1. Class Form1
    3. Private Sub ListView2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView2.DragDrop
    4. Dim ziel As ListView = CType(sender, ListView)
    5. Dim items() As ListViewItem = e.Data.GetData("ListViewItemData")
    6. For i As Integer = 0 To items.Length - 1
    7. ziel.Items.Add(items(i).Text)
    8. Next
    9. Dim quelle As ListView = If(ziel Is ListView1, ListView2, ListView1)
    10. For Each item As ListViewItem In quelle.SelectedItems
    11. quelle.Items.Remove(item)
    12. Next
    13. End Sub
    17. Private Sub ListView2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView2.DragEnter
    18. e.Effect = If(e.Data.GetDataPresent("ListViewItemData"), _
    19. DragDropEffects.Move, DragDropEffects.None)
    20. End Sub
    24. Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
    25. Dim listview As ListView = CType(sender, ListView)
    26. Dim items(listview.SelectedItems.Count - 1) As ListViewItem
    27. For i As Integer = 0 To listview.SelectedItems.Count - 1
    28. items(i) = listview.SelectedItems(i)
    29. Next
    30. listview.DoDragDrop(New DataObject("ListViewItemData", items), _
    31. DragDropEffects.Move)
    32. end sub
    35. End Class

Facebook
Telefonspende