drag & drop mehrere Zeile im Datagridview

  • VB.NET
  • .NET (FX) 4.0

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

    drag & drop mehrere Zeile im Datagridview

    Hallo Alle ,
    ich das Problem wurde bereits in mehrere Foren gestellt. Aber zurzeit habe ich keine richtige Antwort gefunden.
    Ich möchte im Rahmen eines Projektes ein Explorer- Ansicht ähnlich wie die von Windows erstellen. Ich wollte
    das Datagridview an der Stelle des Listviews nutzen, um die Sortierungeigenschaft des gridviews zu nutzen.

    Hat jemand ein Beispiel oder eine Vorgehensweise wie man mehrere gewählter Zeile eines datagridviews per Drag & drop verschieben kann?
    bisher kriege ich komische Verhalten, wenn ich in der Mousedown- Event er drag&drop-Vorgang starte.

    danke im voraus

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

    Das fällt unter Draggen innerhalb der Anwendung. Dabei ist das DataObject mehr hinderlich als nützlich.
    aber ich hab nur ein tutorial für c#: mycsharp.de/wbb2/thread.php?threadid=73005%0D%0A

    Und für DGV hat man zusätzlich das Problem, dass die Multi-Selection mittm MouseDown verloren geht. Also muss man sie sich im PreviewMouseDown merken, und im MouseDown wieder herstellen.

    Oder willst du auch in annere Anwendungen hinein-draggen? Dann ist das DataObject natürlich zu benützen, und dann passt dieses Tut: DragDrop-Sample

    @ ErfinderDesRades
    zuerst danke für deine Antwort.

    ErfinderDesRades schrieb:

    Und für DGV hat man zusätzlich das Problem, dass die Multi-Selection mittm MouseDown verloren geht. Also muss man sie sich im PreviewMouseDown merken, und im MouseDown wieder herstellen.
    .
    Genau hier liegt mein Problem. wenn mehrere Zeilen gewählt sind und man auf irgendeine gewählte Zeile drückt um den Vorgang zu starten( mousedown), geht die Selektion der anderen Zeilen verloren. Alle was ich in Internet als Code gesehen habe funktioniert nicht.
    Oder willst du auch in annere Anwendungen hinein-draggen?

    In meinem Gridview habe ich eine Spalte id und werde für jede gewählte Zeile, den Wert der Zelle id in einem Array speichern. Die gefüllte Array brauche ich dann für den dragdrop-Vorgang eines anderen Steuerelements. Ich weiß aber bereits wie ich hier vorgehen soll.
    kannst du mir bitte erklären wie ich vorgehen soll? (Drag mehrere Zeile )
    danke

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

    naja - prinzipiell hab ichs dir doch mitgeteilt: Merke dir die Selection, bevor sie zerstört wird.
    Nur mittm PreviewMouseDown-Event habich geirrt: das gibts im WinForms-DGV nicht.

    Aber hab grad getestet: hierfür ist auch das MouseDown-Event geeignet.

    Und stell die Selection wieder her, nachdem sie zerstört wurde.

    nö.

    Das Thema kann man einfach abhandeln, dann langts vorne und hinten nicht für eine sinnvolle Verwendung.

    oder man handelts "alles erschlagend" ab - wie im gegebenen c#-Tutorial, dann verstehts kein Mensch.

    Etwa bei deiner Anforderung: Da muss ja auch ein Highlighting stattfinden über dem Ziel-Control. Damit der User sieht, wo die gedraggten Inhalte eingefügt werden.
    Allein so ein Highlighter ist ein Thema für sich.

    also ich hab jetzt was gebastelt, was das Multi-Item-Problem beim DragStart lösen täte.
    Aber wie gesagt, das hat kein Sinn, weil ich noch kein Target-Highlighting dran hab.
    Also Frage, ob du Targethighlighting brauchst.
    Targethighlighting brauchst du, wenn dein Drag-Ziel ebenfalls ein Multi-Item-Control ist, etwa Datagridview oder Listbox oder sowas.
    Weil da will man ja normal nicht nur reinschmeißen, sondern auch zielen können, hinter/vor welchem Item der Drag eingefügt werden soll.
    Also brauchst du Target-Highlighting?

    @ ErfinderDesRades

    Zuerst danke für deine Hilfe. Mein Ziel-Control ist ein Treeview ( Also keine Multi-Item) . Ich brauche ein Target-Highlighting ich kann aber selbst basteln. Wichtig ist vor allem diese Multi-Select Eingenschaft mit Drag lösen zu können.

    kannst du mir bitte deine Vorgehenweise erklären?

    Danke nochmals

    natürlich ist ein Treeview ein Multi-Item-Control - Item heißt "Dingens", und ein Treenode ist doch ein Dingens, und davon gibts viele.
    Wie gesagt: Im DGV.MouseDown musste dir die Selection merken, weil gleich anschließend verfällt die.
    Kurzdarauf erfolgt der Dragstart, und in dem Moment musste die Selection wieder herstellen, damit du das Dgv mit Selection dann im DragDrop verarbeiten kannst.
    Was du nicht brauchst, ist das DataObject.
    Im DataObject sind Daten untypisiert und umständlich hinterlegt. Du aber hast dir das Dgv inklusive seiner Selection ja typisiert gemerkt, bzw. weißt sowieso, um welches Dgv es geht.
    Also wozu Daten ins DataObject praktizieren, und wieder rausfummeln und casten (und dabei gibts paar Fußangeln), wenn du die Daten doch eh schon lange kennst??

    Ich hab ein TestProjekt gebastelt, aber leider kann ichs nicht anhängen.
    Aber der Code ist nicht weiter wild, also halt so:

    VB.NET-Quellcode

    1. Public Class DgvSelectionStore
    2. Private WithEvents _Dgv As DataGridView
    3. Public Sub New(ByVal dgv As DataGridView)
    4. _Dgv = dgv
    5. End Sub
    6. Public Bands As New List(Of DataGridViewBand)
    7. Public Cells As New List(Of DataGridViewCell)
    9. Private Sub ItemDataGridView_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles _Dgv.MouseDown
    10. Bands.Clear() : Cells.Clear()
    11. _Dgv.SelectedRows.Cast(Of DataGridViewBand).ForEach(AddressOf Bands.Add)
    12. _Dgv.SelectedColumns.Cast(Of DataGridViewBand).ForEach(AddressOf Bands.Add)
    13. _Dgv.SelectedCells.Cast(Of DataGridViewCell).ForEach(AddressOf Cells.Add)
    14. End Sub
    15. Public Sub Restore()
    16. _Dgv.ClearSelection()
    17. Bands.ForEach(Sub(itm) itm.Selected = True)
    18. Cells.ForEach(Sub(itm) itm.Selected = True)
    19. End Sub
    20. End Class

    VB.NET-Quellcode

    1. Imports DragjobTester.ItemsDts
    2. Imports System.IO
    4. Public Class frmStandardDrag
    6. Private _DgvSelectionStore As DgvSelectionStore
    7. Private _DragStart As Point
    8. Private Shared _DummiData As New DataObject
    10. Public Sub New()
    11. InitializeComponent()
    12. _DgvSelectionStore = New DgvSelectionStore(ItemDataGridView)
    13. GenerateData()
    14. TreeView1.ExpandAll()
    15. End Sub
    17. Private Sub GenerateData()
    18. For i = 0 To 9
    19. ItemsDts.Item.AddItemRow("col1_" & i, "col2_" & i)
    20. Next
    21. End Sub
    23. Private Sub ItemDataGridView_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ItemDataGridView.MouseDown
    24. If e.Button <> Windows.Forms.MouseButtons.Left Then Return
    25. _DragStart = e.Location
    26. End Sub
    28. Private Sub ItemDataGridView_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ItemDataGridView.MouseMove
    29. If e.Button <> Windows.Forms.MouseButtons.Left Then Return
    30. With e.Location 'draggen erst starten, wenn ein kleines Stück mit gehaltener Maustaste gezogen wurde
    31. If (.X - _DragStart.X) ^ 2 + (.Y - _DragStart.Y) ^ 2 > 9 Then
    32. _DgvSelectionStore.Restore()
    33. Dim result = ItemDataGridView.DoDragDrop(_DummiData, DragDropEffects.Copy)
    34. If result <> DragDropEffects.None Then
    35. ' Hier Drop-Aktion ausführen - ***nicht*** im Treeview.DragDrop-Event!!!
    36. Dim nd = TreeView1.GetNodeAt(TreeView1.PointToClient(Control.MousePosition))
    37. MessageBox.Show("dropped on: " & nd.Text)
    38. End If
    39. Highlighter.Off()
    40. End If
    41. End With
    42. End Sub
    44. Private Sub TreeView1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles TreeView1.DragOver
    45. Dim nd = TreeView1.GetNodeAt(TreeView1.PointToClient(Control.MousePosition))
    46. If nd Is Nothing Then
    47. Highlighter.Off()
    48. e.Effect = DragDropEffects.None
    49. Else
    50. e.Effect = DragDropEffects.Copy
    51. Highlighter.Highlight(TreeView1, nd.Bounds)
    52. End If
    53. End Sub
    55. End Class
    Also der DgvSelectionStore merkt sich automatisch bei jedem MouseDown die Selection. Nur zum Wiederherstellen musste ihn explizit auffordern - nämlich wenn das Draggen tatsächlich beginnt.

    Ach - hier noch der Nodehighlighter:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. '''<summary> Zum Highlighten von Treenodes, ListviewItems etc. </summary>
    5. Public Class Highlighter
    6. ' Das Highlighten erfolgt durch Farb-Inversion des Target-Rectangles. Ausschalten
    7. ' des Highlights durch wiederholte Inversion desselben Rectangles. Fehl-Highlighting
    8. ' ergibt sich also, wenn zwischen Highlight() und Off() das Rectangle anderweitig
    9. ' übermalt wurde.
    11. Protected Shared _HighlightedRect As Rectangle = Rectangle.Empty
    13. ' Farb-Inversion ist eine Art "Spiegelung" über eine Farb-Achse.
    14. ' Dieses komische Rot ergibt (bisher) immer deutliche "Spiegel-Farben"
    15. Private Shared ReadOnly _AxisColor As Color = Color.FromArgb(255, 0, 127)
    17. Public Shared Sub Highlight(ByVal Target As Control, ByVal ItemRect As Rectangle)
    18. If ItemRect.IsEmpty Then
    19. Highlighter.Off()
    20. Else
    21. ItemRect.Intersect(Target.ClientRectangle)
    22. ' FillReversibleRectangle verwendet bildschirmbezogene Koordinaten, daher muß ItemRect
    23. ' um die Bildschirmposition des Controls verschoben werden
    24. ItemRect.Offset(Target.PointToScreen(Point.Empty))
    25. If ItemRect.IntersectsWith(_HighlightedRect) Then
    26. Return
    27. End If
    28. ' ist schon highlighted
    29. If Not _HighlightedRect.IsEmpty Then
    30. ' altes Highlight löschen
    31. ControlPaint.FillReversibleRectangle(_HighlightedRect, _AxisColor)
    32. End If
    33. _HighlightedRect = ItemRect
    34. ' neues Highlight setzen
    35. ControlPaint.FillReversibleRectangle(ItemRect, _AxisColor)
    36. End If
    37. End Sub
    39. Public Shared Sub Before(ByVal Target As Control, ByVal ItemRect As Rectangle)
    40. ItemRect.Offset(0, -ItemRect.Height \ 2)
    41. ItemRect.Inflate(0, -2)
    42. Highlight(Target, ItemRect)
    43. End Sub
    45. Public Shared Sub After(ByVal Target As Control, ByVal ItemRect As Rectangle)
    46. ItemRect.Offset(0, ItemRect.Height)
    47. Before(Target, ItemRect)
    48. End Sub
    50. Public Shared Sub FullWidth(ByVal Target As Control, ByVal Y As Integer, ByVal Height As Integer)
    51. 'bei leeren ListenControls, oder bei Treeview.TopLevel als Ziel kann kein ItemRect angegeben werden
    52. Highlighter.Highlight(Target, New Rectangle(0, Y, Target.Width, Height))
    53. End Sub
    55. Public Shared Sub Off()
    56. If _HighlightedRect.IsEmpty Then
    57. Return
    58. End If
    59. ControlPaint.FillReversibleRectangle(_HighlightedRect, _AxisColor)
    60. _HighlightedRect = Rectangle.Empty
    61. End Sub
    62. End Class
    Aber den brauchst du ja gar nicht (hihi - wenn du dich da man nicht irrst)
    Ups - da fehlt noch die Foreach - Extension.

    VB.NET-Quellcode

    1. Public Module CollectionX
    2. <DebuggerStepThrough(), Extension()> _
    3. Public Sub ForEach(Of T)(ByVal items As IEnumerable(Of T), ByVal Action As Action(Of T))
    4. For Each itm In items
    5. Action(itm)
    6. Next
    7. End Sub
    8. End Module
    Oder bastel die entsprechenden Stellen in richtige Foreach-Schleifen um

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

    Hallo Erfinder des Rades
    ist zwar schon eine Zeitlang her dein Posting, aber ich hoffe du kannst vielleicht doch noch das komplette Testprojekt posten. Ich komme mit den Codeschnipseln nicht ganz klar. Wo finde ich z.B.
    Imports DragjobTester.ItemsDts
    Ich habe versucht den Code in eine Form zu kopieren. Bekomme aber nur Fehlermeldungen.

    Gruß
    Hallihallo

Facebook
Telefonspende