Drag'n Drop in einer ListView auf andere Items

  • VB.NET

Es gibt 66 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Drag'n Drop in einer ListView auf andere Items

    Hey.
    Ich habe eine ListView und möchte, dass man ein Item auf ein anderes Ziehen kann. Dann soll noch das gezogene Item sowie das Item auf das es gezogen wurde Identifiziert werden. Durch z.B. den Tag.
    Wie kann ich das am besten realisieren?

    Lg


    #edit: Das Programm MUSS Morgen früh fertig sein :s
    ...aber gut, dass wir darüber gesprochen haben!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sonderzeichen“ ()

    Hey,

    magst Du mal den Sinn dahinter erklären bitte? Dann fällt es evtl. leichter, eine passende Lösung anzubieten.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @SpaceyX

    Ich mach einen Dateibrowser. Da möchte ich, dass man Dateien in Ordner ziehen kann, nur weiß ich nicht, wie ich Abfrage, ob ein Item auf ein anderes gezogen wurde.
    Es würde mir ja schon reichen, wenn ich weiß, wie ich an die beiden Elemente komme (Das Item, was gezogen wurde, das andere, auf das es gezogen wurde)

    Hier ein Beispiel:


    Mein Problem fängt schon damit an, ich weiß nicht, wie ich aktivieren kann, dass ich Items mit der Maus ziehen kann.

    Lg
    ...aber gut, dass wir darüber gesprochen haben!

    Hier ein Beispiel, wie man es machen kann. Ich muss auch dazu sagen, ich bin, was Design und GUI-Funktionalitäten angeht, ein totaler Tiefflieger. Gibt bestimmt Lösungen, die sauberer sind, jedoch zeigt Dir mein Beispiel, wie Du es anpacken kannst. Verlass Dich nicht zu sehr darauf 8o An Verbesserungen wäre ich selber auch interessiert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private _dragInit As Boolean = False
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. For i As Integer = 0 To 10
    6. Dim lVI As New ListViewItem(DateTime.Now.Millisecond.ToString())
    7. lVI.SubItems.Add(DateTime.Now.Millisecond.ToString())
    8. lVI.SubItems.Add(DateTime.Now.Millisecond.ToString())
    9. ListView1.Items.Add(lVI)
    10. Next
    11. End Sub
    13. Private Sub ListView1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDown
    14. If Not ListView1.SelectedItems.Count = 0 AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
    15. _dragInit = True
    16. End If
    17. End Sub
    19. Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter
    20. If e.Data.GetDataPresent(GetType(ListView.SelectedListViewItemCollection)) Then
    21. e.Effect = DragDropEffects.All
    22. End If
    23. End Sub
    25. Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.DragDrop
    26. Dim items As ListView.SelectedListViewItemCollection = DirectCast(e.Data.GetData(GetType(ListView.SelectedListViewItemCollection)), ListView.SelectedListViewItemCollection)
    27. Dim dropCoord As Point = ListView1.PointToClient(New Point(e.X, e.Y))
    28. Dim target As ListViewItem = ListView1.GetItemAt(dropCoord.X, dropCoord.Y)
    30. If Not target Is Nothing Then
    31. If items.Contains(target) Then
    32. MessageBox.Show("Ziel ist Teil der Auflistung")
    33. Exit Sub
    34. End If
    36. For Each lVI As ListViewItem In items
    37. 'Do your stuff.
    38. Next
    39. End If
    40. End Sub
    42. Private Sub ListView1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListView1.MouseMove
    43. If _dragInit Then
    44. ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Copy)
    45. End If
    46. End Sub
    48. Private Sub ListView1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListView1.MouseUp
    49. If e.Button = Windows.Forms.MouseButtons.Left Then
    50. _dragInit = False
    51. End If
    52. End Sub
    53. End Class



    Ich arbeite auch nie mit dem ListView-Control und ich rate meist auch jedem davon ab. Aber gut, in diesem Fall scheint es, als ob man es einsetzen kann.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SpaceyX“ ()

    @ErfinderDesRades:

    Ich war mir nicht so sicher, ob er das Design, das er in seinem Screenshot zeigt, mit einem DGV umgesetzt bekommt. Darum die Aussage.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Du musst bei deiner Lösung übrigens aufpassen, weil da kann auch aus ListViews anderer Anwendungen drauf gezogen werden - in Produktiv-Anwendungen vlt. nicht so prickelnd.

    gugge vlt. DragDropSample

    ach - ist auch blödes Sample, wasses ja garnet anners macht.
    jetzt fällt mir nurnoch was altes in c# ein: Draggen in der Anwendung

    Mhh, interessant. Aber wird, wenn der Drop von "außerhalb" kommt, nicht etwas in der Art "COM-Object" übergeben? Das sollte ja dann zu einer Ausnahme führen. Man müsste ja nur den Typ prüfen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @SpaceyX
    Danke, hat super Funktioniert. Noch hier und da ein bisschen angepasst, aber jetzt funktionierts!
    DANKE!

    Und was it DGV ?

    @ErfinderDesRades
    Ich werde durch den Code nicht schlau. Wo wird denn angegeben, dass nicht aus anderen Anwendungen gedropped werden kann?

    @SpaceyX
    Wie sollte man das denn Prüfen?

    Lg!
    ...aber gut, dass wir darüber gesprochen haben!

    Ich würde gleich im DragEnter-EventHandler prüfen und "fremde" Objecte gar nicht erst weiter verarbeiten. In Etwa so:

    VB.NET-Quellcode

    1. Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter
    2. Dim i As Object = e.Data.GetData(GetType(ListView.SelectedListViewItemCollection))
    4. If TypeOf (i) Is ListView.SelectedListViewItemCollection Then
    5. e.Effect = DragDropEffects.All
    6. Else
    7. e.Effect = DragDropEffects.None
    8. End If
    9. End Sub
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Der Erfinder meinte eigentlich, dass nicht aus ListViews anderer Anwendungen heraus auf Deine ListView gedroppt werden kann. Jedenfalls hab ich das so verstanden. Hier noch ein Codeausschnitt, der das Droppen aus der eigenen ListView und das Droppen von Dateien zulässt. Im DragDrop-EventHandler musst Du dann die Fallunterscheidung durchfürhen. Aber ich denke, Du bekommst das schon hin.

    VB.NET-Quellcode

    1. Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter
    2. Dim t As Type = e.Data.GetType()
    4. 'Verhindert, dass aus anderen Anwendungen gedroppt wird.
    5. 'Jedenfalls weiß ich es nicht besser!
    6. If Not t.IsCOMObject Then
    7. e.Effect = DragDropEffects.All
    8. Else
    9. e.Effect = DragDropEffects.None
    10. End If
    11. End Sub
    13. Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.DragDrop
    14. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    15. Dim droppedFiles As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
    17. For Each s As String In droppedFiles
    18. 'Do your stuff with dropped files
    19. Next
    20. End If
    22. If e.Data.GetDataPresent(GetType(ListView.SelectedListViewItemCollection)) Then
    23. Dim items As ListView.SelectedListViewItemCollection = DirectCast(e.Data.GetData(GetType(ListView.SelectedListViewItemCollection)), ListView.SelectedListViewItemCollection)
    24. Dim dropCoord As Point = ListView1.PointToClient(New Point(e.X, e.Y))
    25. Dim target As ListViewItem = ListView1.GetItemAt(dropCoord.X, dropCoord.Y)
    27. If Not target Is Nothing Then
    28. If items.Contains(target) Then
    29. MessageBox.Show("Ziel ist Teil der Auflistung")
    30. Exit Sub
    31. End If
    33. For Each lVI As ListViewItem In items
    34. 'Do your stuff.
    35. Next
    36. End If
    37. End If
    38. End Sub
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hey @SpaceyX
    Ich weiß nun dank deinem Code wie sowas zu realisieren ist. Ist es auch möglich, rauszufinden wenn etwas, z.B. aus der ListView, auf den Desktop gedropped wird?
    Den Desktop kann ich ja schlecht mit einer Sup Desktop_DragEnter(...)... machen.

    Vlt ein paar Stichwörter oder Starthilfen, Ansätze?


    Lg
    ...aber gut, dass wir darüber gesprochen haben!

    Hey.
    Unmöglich ist es ja nicht, es gibt ja sehr viele Anwendungen die Drag'n Drop auf den Desktop oder sonst wo hin unterstützen.
    Nur wüsste ich nicht WIE die das machen, das ist ja meine Frage, wie ich den Pfad bekomme, auf das ein ListViewItem gezogen wurde. Beispiel: Desktop
    Wenn es eine andere Möglichkeit gibt, als den Pfad zu bekommen, z.B. direkt Kopieren, ist das auch super :)

    Vlt. haben wir uns nicht ganz verstanden?
    ...aber gut, dass wir darüber gesprochen haben!

    @ErfinderDesRades
    Welches DataObject?
    Ist das erste mal, dass ich mit D'nD arbeite, brauche noch Unterstützung.
    Code ist zwar cool, allerdings würd ichs auch gern mit dem MSDN oder sonstigem Versuchen, C&P ist ja auch doof, daraus lern ich nichts :(
    Ich hab schon gegooglet. Dabei sind teilweise 4 Jahre alte Themen rausgekommen und die funktionierten nicht oder waren garnicht erst für VB...

    @sonne75
    Wenn das ginge, wär das natürlich auch nicht schlecht, da bin ich noch garnicht drauf gekommen.

    Lg
    ...aber gut, dass wir darüber gesprochen haben!

    Ich habe dir ein einfaches funktionierendes Codebeispiel gegeben, innerhalb eines Tutorials, wo der Kram erläutert wird (dort post#8). Mehr Unterstützung weiß ich nicht, wie man dir bieten können sollte.
    Nun musst du gucken, ob du auf einem Level bist, der die Erklärungen versteht, oder du mußt die fehlenden Grundlagen nacharbeiten.
    Auch möglich ist, dass meine Erklärungen nicht gut sind (ich kann ja nur vermuten, was die beste Erklärung ist)
    All das kann man aber nur herausfinden, indem du nachfragst.

    Wenn du lieber mit Msdn lernst- bitte.

    Also für mein Geschmack wesentlich schwieriger zu verstehen, und auch einiger Müll drin, etwa unsinnige Abfragen, und ein unsinniger TryCatch.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    @ErfinderDesRades
    Ich komm damit wirklich nicht weiter.
    Da wird zwar erläutert, wie Drag'n Drop funktioniert, aber so wie ich das gesehen hab, nicht wie es z.B. mit dem Windows Explorer, Desktop zu realisieren ist... :(
    Und, du hast recht, der ist echt Shit, also MSDN...
    Ich arbeite aber auch viel mit Try Catch, was ist daran so schlimm?

    Lg
    ...aber gut, dass wir darüber gesprochen haben!

Facebook
Telefonspende