DataGrid Zeilen mit Maus verschieben

  • WPF MVVM

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von kafffee.

    DataGrid Zeilen mit Maus verschieben

    Guten Morgen allerseits :-)!

    Ich versuche gerade, die Zeilen eines DataGrid mit der Maus "verschiebbar" zu machen und habe im Internet eine C#-Klasse gefunden, die ich mit einem Online-Übersetzer ins Folgende übersetzt habe:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections
    3. Imports System.Collections.Generic
    4. Imports System.Linq
    5. Imports System.Text
    6. Imports System.Threading.Tasks
    7. Imports System.Windows
    8. Imports System.Windows.Controls
    9. Imports System.Windows.Input
    10. Imports System.Windows.Media
    12. Namespace DataGridMovableRows
    13. Public Class VisualHelper
    14. Inherits ViewModel.Instrastructure.ViewModelBase
    15. Public Shared ReadOnly EnableRowsMoveProperty As DependencyProperty = DependencyProperty.RegisterAttached("EnableRowsMove", GetType(Boolean), GetType(VisualHelper), New PropertyMetadata(False, AddressOf EnableRowsMoveChanged))
    16. Private Shared ReadOnly DraggedItemProperty As DependencyProperty = DependencyProperty.RegisterAttached("DraggedItem", GetType(Object), GetType(VisualHelper), New PropertyMetadata(Nothing))
    18. Public Shared Function GetEnableRowsMove(ByVal obj As DataGrid) As Boolean
    19. Return CBool(obj.GetValue(EnableRowsMoveProperty))
    20. End Function
    22. Public Shared Sub SetEnableRowsMove(ByVal obj As DataGrid, ByVal value As Boolean)
    23. obj.SetValue(EnableRowsMoveProperty, value)
    24. End Sub
    26. Private Shared Function GetDraggedItem(ByVal obj As DependencyObject) As Object
    27. Return CObj(obj.GetValue(DraggedItemProperty))
    28. End Function
    30. Private Shared Sub SetDraggedItem(ByVal obj As DependencyObject, ByVal value As Object)
    31. obj.SetValue(DraggedItemProperty, value)
    32. End Sub
    34. Private Shared Sub EnableRowsMoveChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
    35. Dim grid = (TryCast(d, DataGrid))
    36. If grid Is Nothing Then Return
    38. If CBool(e.NewValue) Then
    39. grid.PreviewMouseLeftButtonDown += AddressOf OnMouseLeftButtonDown
    40. grid.PreviewMouseLeftButtonUp += AddressOf OnMouseLeftButtonUp
    41. grid.PreviewMouseMove += AddressOf OnMouseMove
    42. Else
    43. grid.PreviewMouseLeftButtonDown -= AddressOf OnMouseLeftButtonDown
    44. grid.PreviewMouseLeftButtonUp -= AddressOf OnMouseLeftButtonUp
    45. grid.PreviewMouseMove -= AddressOf OnMouseMove
    46. End If
    47. End Sub
    49. Private Shared Sub OnMouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
    50. Dim row = TryFindFromPoint(Of DataGridRow)(CType(sender, UIElement), e.GetPosition((TryCast(sender, DataGrid))))
    51. If row Is Nothing OrElse row.IsEditing Then Return
    52. VisualHelper.SetDraggedItem(TryCast(sender, DataGrid), row.Item)
    53. End Sub
    55. Private Shared Sub OnMouseLeftButtonUp(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
    56. Dim draggeditem = VisualHelper.GetDraggedItem(TryCast(sender, DependencyObject))
    57. If draggeditem Is Nothing Then Return
    58. ExchangeItems(sender, (TryCast(sender, DataGrid)).SelectedItem)
    59. TryCast(sender, DataGrid).SelectedItem = draggeditem
    60. VisualHelper.SetDraggedItem(TryCast(sender, DataGrid), Nothing)
    61. End Sub
    63. Private Shared Sub OnMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    64. Dim draggeditem = VisualHelper.GetDraggedItem(TryCast(sender, DependencyObject))
    65. If draggeditem Is Nothing Then Return
    66. Dim row = TryFindFromPoint(Of DataGridRow)(CType(sender, UIElement), e.GetPosition((TryCast(sender, DataGrid))))
    67. If row Is Nothing OrElse row.IsEditing Then Return
    68. ExchangeItems(sender, row.Item)
    69. End Sub
    71. Private Shared Sub ExchangeItems(ByVal sender As Object, ByVal targetItem As Object)
    72. Dim draggeditem = VisualHelper.GetDraggedItem(TryCast(sender, DependencyObject))
    73. If draggeditem Is Nothing Then Return
    75. If targetItem IsNot Nothing AndAlso Not ReferenceEquals(draggeditem, targetItem) Then
    76. Dim list = TryCast((TryCast(sender, DataGrid)).ItemsSource, IList)
    77. If list Is Nothing Then Throw New ApplicationException("EnableRowsMoveProperty requires the ItemsSource property of DataGrid to be at least IList inherited collection. Use ObservableCollection to have movements reflected in UI.")
    78. Dim targetIndex = list.IndexOf(targetItem)
    79. list.Remove(draggeditem)
    80. list.Insert(targetIndex, draggeditem)
    81. End If
    82. End Sub
    84. Public Shared Function FindVisualParent(Of T As DependencyObject)(ByVal child As DependencyObject) As T
    85. Dim parentObject = VisualTreeHelper.GetParent(child)
    86. If parentObject Is Nothing Then Return Nothing
    87. Dim parent As T = TryCast(parentObject, T)
    89. If parent IsNot Nothing Then
    90. Return parent
    91. Else
    92. Return FindVisualParent(Of T)(parentObject)
    93. End If
    94. End Function
    96. Public Shared Function TryFindFromPoint(Of T As DependencyObject)(ByVal reference As UIElement, ByVal point As Point) As T
    97. Dim element = TryCast(reference.InputHitTest(point), DependencyObject)
    98. If element Is Nothing Then Return Nothing
    99. If TypeOf element Is T Then Return CType(element, T)
    100. Return FindVisualParent(Of T)(element)
    101. End Function
    102. End Class
    103. End Namespace


    Leider gibt es in der Sub EnableRowsMoveChanged rot unterstrichene Fehler, die ich nicht zu beheben weiss:

    VB.NET-Quellcode

    1. Private Shared Sub EnableRowsMoveChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
    2. Dim grid = (TryCast(d, DataGrid))
    3. If grid Is Nothing Then Return
    5. If CBool(e.NewValue) Then
    6. grid.PreviewMouseLeftButtonDown += AddressOf OnMouseLeftButtonDown
    7. grid.PreviewMouseLeftButtonUp += AddressOf OnMouseLeftButtonUp
    8. grid.PreviewMouseMove += AddressOf OnMouseMove
    9. Else
    10. grid.PreviewMouseLeftButtonDown -= AddressOf OnMouseLeftButtonDown
    11. grid.PreviewMouseLeftButtonUp -= AddressOf OnMouseLeftButtonUp
    12. grid.PreviewMouseMove -= AddressOf OnMouseMove
    13. End If
    14. End Sub


    Und zwar bei grid.PreviewMouseLeftButtonDown, grid.PreviewMouseLeftButtonUp, usw. kommt die Fehlermeldung:

    "Public Event PreviewMouseLeftButtonDown As MouseButtonEventHandler" ist ein Ereignis und kann nicht direkt aufgerufen werden. Verwenden Sie eine RaiseEvent-Anweisung, um ein Ereignis aufzurufen.

    Wenn ich jetzt aber ein RaiseEvent davorschreibe, kommt: "grid" ist kein Ereignis von "Visual Helper".

    Der XAML sieht folgendermassen aus:

    XML-Quellcode

    1. <DataGrid ItemsSource="{Binding Playlist, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" SelectionMode="Single" Name="productsDataGrid" viewmodel:VisualHelper.EnableRowsMove="True">


    Weiss jemand Abhilfe?

    :huh: Ich dächt, dass solch ein Übersetzungsfehler Dir längst bekannt wäre. Währen man in C# mit Control.Event += new System.EventHandler(DeineEventHandlerMethode) einen EventHandler zuweist, macht man das in VB.NET mit AddHandler Control.Event, AddressOf DeineEventHandlerMethode, also z.B. AddHandler grid.PreviewMouseLeftButtonDown, AddressOf OnMouseLeftButtonDown
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Naja, ich hab's eigentlich immer wieder auch hier im Forum gelesen, dass es da "Übersetzungsprobleme" gibt. Neulich erst wieder bei Bartosz: Code für mehrere PictureBox-Eventhandler zusammenfassen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende