Treeview拖拽问题

Question

我在做listview 和treeview拖拽问题。遇到一个奇怪的问题，就是treeview结点不自动highlight.
我不知道哪里设置错了。  麻烦大家帮一下忙
  谢谢

Answer 1

应该是手动Highlight吧……Private Sub TreeView1_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
End Sub

Answer 2

手工设置 Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, state As Integer)
      Dim Node As Node
   Set Node = TreeView1.HitTest(x, y)
   
   If Node Is Nothing Then
      Source.DragIcon = IL_Cursor.ListImages("NoDrop").Picture
      Exit Sub
   End If
     
   Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
   Source.DragIcon = IL_Cursor.ListImages("DragMove").Picture
End Sub