DragDrop Listbox

  • VB.NET

    DragDrop Listbox

    Guten Morgen,

    ich bin gerade dabei etwas per drag drop von einer Listbox in die andere zu schieben. Das funktioniert auch.

    Nur habe ich das Problem, dass es nicht genau das ist was ich brauche. Ich möchte eigentlich von der rechten listbox ein item nehmen und es auf ein item in der linken box ziehen. Dann soll eine aktion im hintergrund gestartet werden.

    Wie kann ich das bewerkstelligen?

    toll wäre auch gewesen wenn man zwei items von der rechten und der linken box visuel mit einer linie verbinden hätte können aber das wäre kür :D

    hier mein code bis jetzt welcher das verschieben von items ermöglicht:

    VB.NET-Quellcode

    1. Private Sub list_header_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles list_header.MouseDown
    2. If list_header.Items.Count = 0 Then Exit Sub
    4. Dim index As Integer = list_header.IndexFromPoint(e.X, e.Y)
    5. Dim s As String = list_header.Items(index).ToString
    7. Dim ddel As DragDropEffects = DoDragDrop(s, DragDropEffects.Link)
    9. If (ddel = DragDropEffects.Link) Then
    10. list_header.Items.RemoveAt(index)
    11. End If
    13. End Sub
    15. Private Sub list_file_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles list_file.DragOver
    16. e.Effect = DragDropEffects.Link
    17. End Sub
    19. Private Sub list_file_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles list_file.DragDrop
    20. If e.Data.GetDataPresent(DataFormats.StringFormat) Then
    21. Dim s As String = CStr(e.Data.GetData(DataFormats.StringFormat))
    23. End If
    24. End Sub