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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д