WPF ListView-Datenbindung per Drag/Drop Auto-Scroll

Ich bin immer noch Herumspielen mit genau dem gleichen Problem auch. Ich verwende eine leicht modifizierte version von Bea ' s Drag-and-Drop gefunden hier, das ist in VB anstatt C#. Wenn ich ScrollIntoView wie oben beschrieben, konnte ich nach unten scrollen aber nicht nach oben. So ich Durcheinander herum und kam mit dieser als mein DropTarget_PreviewDragOver:

 Private Sub DropTarget_PreviewDragOver(ByVal sender As Object, ByVal e As DragEventArgs)
        Dim draggedItem As Object = e.Data.GetData(Me.m_format.Name)
        Me.DecideDropTarget(e)
        If (Not draggedItem Is Nothing) Then
            If (TypeOf m_targetItemsControl Is ListBox) Then
                Dim lb As ListBox = CType(m_targetItemsControl, ListBox)
                Dim temp As Integer = m_insertionIndex
                Dim scroll As ScrollViewer = Utilities.GetScrollViewer(lb)
                If scroll.VerticalOffset = temp Then
                    temp -= 1
                End If
                If temp >= 0 And temp <= (lb.Items.Count - 1) Then
                    lb.ScrollIntoView(lb.Items(temp))
                End If
            End If
            Me.ShowDraggedAdorner(e.GetPosition(Me.m_topWindow))
            Me.UpdateInsertionAdornerPosition()
        End If
        e.Handled = True
    End Sub

und ich hatte, um diese utility-Funktion, entnommen aus hier

    Public Shared Function GetScrollViewer(ByVal listBox As ListBox)
    Dim scroll_border As Decorator = CType(VisualTreeHelper.GetChild(listBox, 0), Decorator)
    If (TypeOf scroll_border Is Decorator) Then
        Dim scroll As ScrollViewer = CType(scroll_border.Child, ScrollViewer)
        If (TypeOf scroll Is ScrollViewer) Then
            Return scroll
        Else
            Return Nothing
        End If
    Else
        Return Nothing
    End If


End Function

die ist toll und alles. Dann läuft was theuberk oben erwähnt mit der adorner bewegen, und in den Geist, so dass dies einfach für jemand anderes später habe ich noch eine variable, um die DragDropAdorner Klasse:

    Private m_mouseDelta As Point

Hinzugefügt, die Letzte Zeile von DragSource_PreviewMouseLeftButtondown:

        Me.m_mouseDelta = e.GetPosition(m_sourceItemContainer)

Sich und drehte ShowDraggedAdorner in:

    Private Sub ShowDraggedAdorner(ByVal currentPosition As Point)
    If (Me.m_draggedAdorner Is Nothing) Then
        Dim adornerLayer As AdornerLayer = adornerLayer.GetAdornerLayer(Me.m_topWindow.Content)
        Me.m_draggedAdorner = New DraggedAdorner(Me.m_draggedData, DragDropBehavior.GetDragTemplate(Me.m_sourceItemsControl), m_topWindow.Content, adornerLayer)
    End If
    Me.m_draggedAdorner.SetPosition((currentPosition.X - m_mouseDelta.X), (currentPosition.Y - m_mouseDelta.Y))
    End Sub

Andere Möglichkeit zu navigieren ist das benutzen der ScrollBar-Befehle. Sie können dies tun, ohne klettern unten der VisualTree. Wenn Sie ein ListBox-styles mit keine Grenze der GetScrollViewer()-Methode nicht mehr funktioniert.

Ich benutze das erste Element des ItemContainerGenerator als CommandTarget für die ScrollBar.LineXXXCommand:

Point p = e.GetPosition(itemsControl);
  IInputElement commandTarget = itemsControl.ItemContainerGenerator.ContainerFromIndex(0) as IInputElement;

  if (commandTarget != null)
  {
    if (p.Y < OFFSET_TO_SCROLL)
      ScrollBar.LineUpCommand.Execute(null, commandTarget);
    else if (p.Y > itemsControl.ActualHeight - OFFSET_TO_SCROLL)
      ScrollBar.LineDownCommand.Execute(null, commandTarget);

    if (p.X < OFFSET_TO_SCROLL)
      ScrollBar.LineLeftCommand.Execute(null, commandTarget);
    else if (p.X > itemsControl.ActualWidth - OFFSET_TO_SCROLL)
      ScrollBar.LineRightCommand.Execute(null, commandTarget);
  }

Aufruf der LineXXXCommands ist ähnlich wie einem Klick auf den Pfeil-Tasten von einem ScrollBar: Der ScrollViewer scrolles durch eine bestimmte Menge, die Sie konfigurieren können, indem die Einstellung des SmallAmount' - Eigenschaft der Bildlaufleiste.