TreeView.Как определить на каком узле при перетаскивании была отпущена кнопка мыши? - VB

Узнай цену своей работы

Формулировка задачи:

Я пытаюсь сделать в TreeView возможнность перетаскивания узлов с изменением их подчиненности. Вот возникло несколько вопросов: 1. При выборе узла для перетаскивания (событие MouseDown), выбранный узел, вроде, подсвечивается курсором, но SelectedItem остается без изменения. Понятно, что это изменение происходит при событии NodeClick, которое происходит после MouseUp, но как тогда отлавливать узел, который я собирался перетащить? 2. Как определить на каком узле при перетаскивании была отпущена кнопка мыши? Если у кого есть опыт, поделитесь. Заранее, спасибо.

Решение задачи: «TreeView.Как определить на каком узле при перетаскивании была отпущена кнопка мыши?»

textual
Листинг программы
Dim nodDragX as ComctlLib.Node ' dragging node (what Node to move) 
Dim oNode as ComctlLib.Node    ' hitting node  (where to move)
Dim inDdrag as Boolean       ' Flag of dragging operation
 
' Select Node for dragging
 
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
...Set nodDragX = TreeView1.HitTest(x, y) ' Set the item being dragged.
...If nodDragX Is Nothing Then Set nodDragX = TreeView1.SelectedItem
End Sub
 
' Begin Dragging
 
Private Sub TreeView1_MouseMove _
(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not indrag Then ' Check if Drag operation already in process, if not -
...If Button = vbLeftButton Then ' Signal a Drag operation.
......indrag = True ' Set the flag to true.
......      ' Set the drag icon with the CreateDragImage method.
......TreeView1.DragIcon = TreeView1.SelectedItem.CreateDragImage
......TreeView1.Drag vbBeginDrag ' Drag operation.
...End If
End If
End Sub
 
' Dragging in process
 
Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, state As Integer)
if Source.Name = 'TreeView1' And indrag Then
...Set tvTreeView1.DropHighlight = tvTreeView1.HitTest(x, y) 'Highlight Nodes you moves over
End If
End Sub
 
' Drag operation is over
 
Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
indrag = False
if Source.Name = 'TreeView1' 
...Set TreeView1.DropHighlight = tvTreeView1.HitTest(x, y)
...Set oNode = tvTreeView1.HitTest(x, y) ' your destination
...MoveNode oNode, nodDragX  
End if
     
Private sub MoveNode (oNode as ComctlLib.Node,nodDragX as ComctlLib.Node)
.....< Your code for moving Node nodDragX to oNode>   
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы