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
hier mein code bis jetzt welcher das verschieben von items ermöglicht:
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
hier mein code bis jetzt welcher das verschieben von items ermöglicht:
VB.NET-Quellcode
- Private Sub list_header_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles list_header.MouseDown
- If list_header.Items.Count = 0 Then Exit Sub
- Dim index As Integer = list_header.IndexFromPoint(e.X, e.Y)
- Dim s As String = list_header.Items(index).ToString
- Dim ddel As DragDropEffects = DoDragDrop(s, DragDropEffects.Link)
- If (ddel = DragDropEffects.Link) Then
- list_header.Items.RemoveAt(index)
- End If
- End Sub
- Private Sub list_file_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles list_file.DragOver
- e.Effect = DragDropEffects.Link
- End Sub
- Private Sub list_file_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles list_file.DragDrop
- If e.Data.GetDataPresent(DataFormats.StringFormat) Then
- Dim s As String = CStr(e.Data.GetData(DataFormats.StringFormat))
- End If
- End Sub