DragOver 이벤트에서 목록 상자를 선택한 항목을 얻는 방법

Question

나는 대상 목록 상자에서 목록 상자 위에 마우스 위치를 기준으로 항목을 선택하려는 소스 목록 상자에서 한 항목을 끌 때 두 개의 목록 상자가 있습니다. 이 구현되어 있지만 MouseOver 이벤트 경우에만 끌고 있지 않을 때 발생합니다. 목록 상자의 dragOver 발명품을 기반으로 항목을 선택하려면 어떻게해야합니까?

다음은 개별 목록 항목 dragOver를 뜨거운 추적하려고 노력하는 것처럼

Private Sub CasesBox2_DragEnter(sender As Object, e As System.Windows.DragEventArgs) Handles CasesBox2.DragEnter 
    CasesBox2.CaptureMouse() 
    If Not e.Data.GetDataPresent("contact") OrElse sender = e.Source Then 
     e.Effects = DragDropEffects.None 


    Else 
     e.Effects = DragDropEffects.All 
    End If 


End Sub 

Private Sub CasesBox2_DragOver(sender As Object, e As System.Windows.DragEventArgs) Handles CasesBox2.DragOver 

    Dim MousePoint As Windows.Point = e.GetPosition(Nothing) 

End Sub 

Private Sub CasesBox2_Drop(sender As Object, e As System.Windows.DragEventArgs) Handles CasesBox2.Drop 

    If e.Data.GetDataPresent("myFormat") Then 
     Dim contact As Details = TryCast(e.Data.GetData("myFormat"), Details) 
     Dim cse As Cases = CasesBox2.SelectedItem 
     If cse IsNot Nothing Then 
      Dim cs2 As ObservableCollection(Of Details) = DtlBox3.ItemsSource 
      cs2.Remove(contact) 
      cse.AddDetailsToCase(contact) 
      IsDragInitiated = False 
     End If 
     IsDragInitiated = False 
    End If 
    IsDragInitiated = False 

End Sub 


Private Sub CasesBox2_SelectionChanged(sender As Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles CasesBox2.SelectionChanged 
    Try 
     If IsDragInitiated Then 

     Else 
      Dim SelectedItem As Cases = CasesBox2.SelectedItem 
      DtlBox3.ItemsSource = SelectedItem.CaseDetails 
     End If 



    Catch ex As Exception 

    End Try 

End Sub 

Private Sub DtlBox3_MouseMove(sender As Object, e As System.Windows.Input.MouseEventArgs) Handles DtlBox3.MouseMove 
    Try 
     ' Get the current mouse position 
     Dim mousePos As Windows.Point = e.GetPosition(Nothing) 
     Dim diff As Vector = StartPoint - mousePos 

     If e.LeftButton = MouseButtonState.Pressed AndAlso Math.Abs(diff.X) > SystemParameters.MinimumHorizontalDragDistance OrElse Math.Abs(diff.Y) > SystemParameters.MinimumVerticalDragDistance Then 
      ' Get the dragged ListViewItem 
      Dim listView As ListBox = TryCast(sender, ListBox) 
      Dim listViewItem As ListBoxItem = FindAnchestor(Of ListBoxItem)(DirectCast(e.OriginalSource, DependencyObject)) 

      ' Find the data behind the ListViewItem 
      Dim contact As Details = DirectCast(listView.ItemContainerGenerator.ItemFromContainer(listViewItem), Details) 

      ' Initialize the drag & drop operation 
      Dim dragData As New DataObject("myFormat", contact) 
      IsDragInitiated = True 
      DragDrop.DoDragDrop(listViewItem, dragData, DragDropEffects.Move) 


     End If 
    Catch ex As Exception 

    End Try 


End Sub 

' Helper to search up the VisualTree 
Private Shared Function FindAnchestor(Of T As DependencyObject)(current As DependencyObject) As T 
    Do 
     If TypeOf current Is T Then 
      Return DirectCast(current, T) 
     End If 
     current = VisualTreeHelper.GetParent(current) 
    Loop While current IsNot Nothing 
    Return Nothing 
End Function 

Private Sub DtlBox3_PreviewMouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles DtlBox3.PreviewMouseLeftButtonDown 
    StartPoint = e.GetPosition(Nothing) 
End Sub 

Private Sub Border_MouseEnter(sender As System.Object, e As System.Windows.Input.MouseEventArgs) 
    CasesBox2.SelectedItem = CType(sender, Border).DataContext 
    If CasesBox2.IsFocused Then 
    Else 
     CasesBox2.Focus() 
    End If 
End Sub 

Answer 1

는 소리 코드입니다.

WPF를 사용하는 경우 해당 트리거가있는 ListBoxItems에 대한 사용자 지정 템플릿을 만들 수 있습니다.

그렇지 않은 경우 : ListBox 컨트롤 대신 목록 항목 자체에서 DragOver를 구현할 수 있으며, 강조 표시를 해제 할 수 있도록 현재 핫 트랙 항목에 대한 참조를 유지해야합니다. 이것은 ListBox가 일부 사용자 정의 객체로 채워 져야 함을 의미합니다.