DragDrop mit DataGridViewCustomCell

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Hajo.

    DragDrop mit DataGridViewCustomCell

    Hallo zusammen,

    folgende Problematik beschäftigt mich:
    Ich habe mehrere CustomCells in einer DataGridView und ziehe diese per DragDrop in eine andere DataGridView. Prinzipiell funktioniert das, allerdings spricht der DragDrop Vorgang nur in einem kleinen Bereich der Zelle an. Im Bild ist dieser Bereicht markiert. In allen anderen Bereichen der Zelle funktioniert das DragDrop nicht.

    Meine CustomCell basiert auf einer DataGridViewImageCell:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.ComponentModel
    4. Public Class DataGridViewDriveColumn
    6. Inherits DataGridViewImageColumn
    8. Public Sub New()
    9. Me.CellTemplate = New DataGridViewDriveCell
    10. End Sub
    12. End Class
    14. Public Class DataGridViewDriveCell
    16. Inherits DataGridViewImageCell
    18. Private myFolderSize As Long
    19. Public Property FolderSize() As Long
    20. Get
    21. Return myFolderSize
    22. End Get
    23. Set(ByVal Value As Long)
    24. myFolderSize = Value
    25. End Set
    26. End Property
    28. Private myDriveObject As DriveObject
    29. Public Property DriveObject() As DriveObject
    30. Get
    31. Return myDriveObject
    32. End Get
    33. Set(ByVal Value As DriveObject)
    34. myDriveObject = Value
    35. End Set
    36. End Property
    38. ''' <summary>
    39. ''' Neuinstanzierung
    40. ''' </summary>
    41. ''' <remarks></remarks>
    42. Sub New()
    43. ValueType = Type.GetType("String")
    45. myFolderSize = 0
    46. myDriveObject = New DriveObject
    48. End Sub
    50. ''' <summary>
    51. ''' Method required to make the Cell consistent with the default Image Cell.
    52. ''' The default Image Cell assumes an Image as a value, although the value of the Progress Cell is an Integer.
    53. ''' </summary>
    54. ''' <param name="value"></param>
    55. ''' <param name="rowIndex"></param>
    56. ''' <param name="cellStyle"></param>
    57. ''' <param name="valueTypeConverter"></param>
    58. ''' <param name="formattedValueTypeConverter"></param>
    59. ''' <param name="context"></param>
    60. ''' <returns></returns>
    61. ''' <remarks></remarks>
    62. Protected Overrides Function GetFormattedValue( _
    63. ByVal value As Object, _
    64. ByVal rowIndex As Integer, _
    65. ByRef cellStyle As DataGridViewCellStyle, _
    66. ByVal valueTypeConverter As TypeConverter, _
    67. ByVal formattedValueTypeConverter As TypeConverter, _
    68. ByVal context As DataGridViewDataErrorContexts _
    69. ) As Object
    70. Static emptyImage As Bitmap = New Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    71. GetFormattedValue = emptyImage
    72. End Function
    74. ''' <summary>
    75. ''' Zeichnet das Control
    76. ''' </summary>
    77. ''' <param name="g"></param>
    78. ''' <param name="clipBounds"></param>
    79. ''' <param name="cellBounds"></param>
    80. ''' <param name="rowIndex"></param>
    81. ''' <param name="cellState"></param>
    82. ''' <param name="value"></param>
    83. ''' <param name="formattedValue"></param>
    84. ''' <param name="errorText"></param>
    85. ''' <param name="cellStyle"></param>
    86. ''' <param name="advancedBorderStyle"></param>
    87. ''' <param name="paintParts"></param>
    88. ''' <remarks></remarks>
    89. Protected Overrides Sub Paint(ByVal g As System.Drawing.Graphics, _
    90. ByVal clipBounds As System.Drawing.Rectangle, _
    91. ByVal cellBounds As System.Drawing.Rectangle, _
    92. ByVal rowIndex As Integer, _
    93. ByVal cellState As System.Windows.Forms.DataGridViewElementStates, _
    94. ByVal value As Object, _
    95. ByVal formattedValue As Object, _
    96. ByVal errorText As String, _
    97. ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle, _
    98. ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle, _
    99. ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
    101. Dim myForeBrush As Brush = New SolidBrush(cellStyle.ForeColor)
    103. Dim myIconWidth As Integer = 32
    105. 'Zeichnet die Standardansicht der Zelle
    106. MyBase.Paint(g, clipBounds, cellBounds, rowIndex, cellState, value, formattedValue, errorText, cellStyle, _
    107. advancedBorderStyle, paintParts)
    109. 'Icon
    110. g.DrawImage(My.Resources.drive, New Point(cellBounds.X + 18, cellBounds.Y + 6))
    112. 'Text
    113. g.DrawString("(" & myDriveObject.DriveName & ") " & myDriveObject.VolumeLabel, cellStyle.Font, myForeBrush, _
    114. cellBounds.X + 18 + myIconWidth + 6, cellBounds.Y + 15)
    116. End Sub
    118. End Class


    Und noch eine andere Sache zum Thema DragDrop: Zieht man beispielsweise bei Firefox ein Bild mit der Maus, folgt das Bild der Maus. Gibt es hierzu einen Lösungsansatz für die DataGridViewColumn?

    Vielen Dank für jegliche Anregungen,
    Hajo
    Bilder

    • 01.png

      19,01 kB, 782×448, 171 mal angesehen

    Ich denke, das Drop funktioniert genau da nicht, wo DataGridViewDriveCell.Paint() hinmalt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hast Du vielleicht ein wenig mehr Code zum testen?
    (Drag...)
    Z.B. bekomme ich den Inhalt von DriveObject nicht angezeigt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Habe den Code etwas reduziert und nur die für die Problematik wichtigen Stellen übrig gelassen. Die Funktionalität bleibt erhalten.

    Das Programm kopiert nachts Daten an von mir bestimmte Kopierziele. Dafür ziehe ich die Ordner, die ich kopiert haben möchte aus dem Explorer in die DGV. Per DragDrop ziehe ich die Spalte der DGV auf die Zelle der zweiten DGV, in der die Laufwerke aufgelistet sind. Auf diese Art weise ich das Kopierziel zu.
    Das DriveObject enthält den Laufwerksbuchstabe, die Laufwerksbezeichnung und den Freien Speicherplatz der Ziellaufwerke.

    //Vielen Dank für Dein Interesse!

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

    VS 2010, ich hab 2008.
    Option Strict = Off ???
    Die Assemblies MAPI und Outlook braucht er nicht (hat er nämlich nicht gefunden.
    So. Läuft erst mal. :rolleyes:
    An welcher Stelle machst Du Drag-Drop mit DGV-Zellen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    VS 2010, ich hab 2008.
    Option Strict = Off ???
    Die Assemblies MAPI und Outlook braucht er nicht (hat er nämlich nicht gefunden.
    So. Läuft erst mal. :rolleyes:
    An welcher Stelle machst Du Drag-Drop mit DGV-Zellen?
    Guter Einwand, werde ich ändern Option Strict = On.
    Die Assemblies braucht er nicht, weil ich den Code ja reduziert habe. Mein vollständiger Code benötigt diese natürlich.

    Der Code für das DragDrop ist in der Form1. Allerdings wird die ganze Spalte davon angesprochen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub DGV_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV.CellMouseDown
    3. Dim myHittest As DataGridView.HitTestInfo = Me.DGV.HitTest(e.X, e.Y)
    4. If myHittest.RowIndex >= 0 Then
    5. Me.DGV.DoDragDrop(Me.DGV.Rows(myHittest.RowIndex), DragDropEffects.Copy)
    6. End If
    8. End Sub
    10. Private Sub DGV_Drives_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DGV_Drives.DragDrop
    12. Dim clientPoint As Point = Me.DGV_Drives.PointToClient(New Point(e.X, e.Y))
    13. Dim myHittest As DataGridView.HitTestInfo = Me.DGV_Drives.HitTest(clientPoint.X, clientPoint.Y)
    14. Dim myType As Type = GetType(DataGridViewRow)
    16. Dim r As DataGridViewRow = Me.DGV.CurrentRow
    18. If myHittest.RowIndex = -1 Then
    19. Exit Sub
    20. End If
    22. Dim myCell As DataGridViewBlurayCell
    23. Dim myDriveCell As DataGridViewDriveCell
    25. If TypeOf r.Cells(0) Is DataGridViewBlurayCell Then
    26. If TypeOf (Me.DGV_Drives.Rows(myHittest.RowIndex).Cells(0)) Is DataGridViewDriveCell Then
    28. myCell = r.Cells(0)
    30. myDriveCell = Me.DGV_Drives.Rows(myHittest.RowIndex).Cells(0)
    32. myCell.DriveObject = myDriveCell.DriveObject
    34. Dim myDriveCell2 As DataGridViewDriveCell
    35. myDriveCell2 = Me.DGV.CurrentRow.Cells(1)
    36. myDriveCell2.DriveObject = myCell.DriveObject
    38. End If
    39. End If
    41. Me.DGV.Refresh()
    43. End Sub
    45. Private Sub DGV_Drives_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DGV_Drives.DragEnter
    46. e.Effect = DragDropEffects.Copy
    47. End Sub

    Den Code habe ich gesehen.
    Welche Bedingungen müssen erfüllt sein, damit ich "draggen" kann?
    (DGV_CellMouseDown())

    Noch eine Bemerkung zum Stil:
    Funktionen geben Werte mit Return zurück.
    Das Verwenden des Funktionsnamens ist veraltet.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich kann klicken und ziehen, aber ich kann das "Me.DGV.DoDragDrop()" nicht reproduzierbar auslösen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OK.
    Wichtig ist, und das war ja Dein Problem, dass nur in einem schmalen Bereich geklickt werden kann.

    Anmerkung:
    Ich habe 2 Pfade reingezogen, es wird immer die falsche DGV-Zeile aktualisiert.

    ===========================================================
    Ich glaube, dass "Me.DGV.HitTest()" Mist macht.
    Ändere die Zeile um in:

    VB.NET-Quellcode

    1. Dim myHittest As DataGridView.HitTestInfo = Me.DGV.HitTest(70, 40) 'e.X, e.Y)

    und es läuft. :D
    (70 und 40 sind ausprobierte Werte)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

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

    RodFromGermany schrieb:

    Ich glaube, dass "Me.DGV.HitTest()" Mist macht.
    Ja, in der Tat ist das so.

    Ich habs jetzt mit folgendem Code gelöst. Nicht ganz so schön, aber immerhin spricht nun die ganze Zelle/Zeile darauf an.
    Herzlichen Dank für Deine Hilfe und Mühe.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub DGV_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGV.CellMouseDown
    3. Dim myRect As Rectangle
    4. myRect = Me.DGV.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, False)
    6. Dim myMouseRect As Rectangle
    7. myMouseRect = New Rectangle(New Point(e.X + myRect.Location.X, e.Y + myRect.Location.Y), New Size(1, 1))
    9. If myRect.IntersectsWith(myMouseRect) Then
    10. Me.DGV.DoDragDrop(Me.DGV.Rows(e.RowIndex), DragDropEffects.Copy)
    11. End If
    13. End Sub

Facebook
Telefonspende