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...
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
- Class Form1
- Private Sub ListView2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView2.DragDrop
- Dim ziel As ListView = CType(sender, ListView)
- Dim items() As ListViewItem = e.Data.GetData("ListViewItemData")
- For i As Integer = 0 To items.Length - 1
- ziel.Items.Add(items(i).Text)
- Next
- Dim quelle As ListView = If(ziel Is ListView1, ListView2, ListView1)
- For Each item As ListViewItem In quelle.SelectedItems
- quelle.Items.Remove(item)
- Next
- End Sub
- Private Sub ListView2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView2.DragEnter
- e.Effect = If(e.Data.GetDataPresent("ListViewItemData"), _
- DragDropEffects.Move, DragDropEffects.None)
- End Sub
- Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
- Dim listview As ListView = CType(sender, ListView)
- Dim items(listview.SelectedItems.Count - 1) As ListViewItem
- For i As Integer = 0 To listview.SelectedItems.Count - 1
- items(i) = listview.SelectedItems(i)
- Next
- listview.DoDragDrop(New DataObject("ListViewItemData", items), _
- DragDropEffects.Move)
- end sub
- End Class