TreeView drag and drop

[EggHead]

Hi all,

I am trying to implement Drag and Drop with my TreeView Control. The problem is, when I click on a node, drag it, and drop it to other node. The dropped node does not hold the drop postion. It moves to the top of the nodes.

BTW, I am using VB6.0 here.

here is the codes

------------------
Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nodTarget As Node
Dim nodOrginal As Node
Set nodTarget = TreeView1.HitTest(x, y)
If Not (nodTarget Is Nothing) Then
Set TreeView1.SelectedItem.Parent = nodTarget
End If
End Sub
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nodNode As Node
Set nodNode = TreeView1.HitTest(x, y)
If nodNode Is Nothing Then Exit Sub '// no node
nodNode.Selected = True
End Sub
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)
Dim nodNode As Node
Effect = vbDropEffectMove
Set nodNode = TreeView1.HitTest(x, y)
If nodNode Is Nothing Or blnDragging = False Then
Effect = vbDropEffectNone
End If
End Sub
Private Sub TreeView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
AllowedEffects = vbDropEffectMove
blnDragging = True
End Sub
------------------

Thanks
Egghead

[Raoul Watson]

"EggHead" <ro******@shaw.ca> wrote in message
news:DlBue.76666$El.58850@pd7tw1no...
Hi all,

I am trying to implement Drag and Drop with my TreeView Control. The problem
is, when I click on a node, drag it, and drop it to other node. The dropped
node does not hold the drop postion. It moves to the top of the nodes.

BTW, I am using VB6.0 here.

here is the codes

------------------
Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As
Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nodTarget As Node
Dim nodOrginal As Node
Set nodTarget = TreeView1.HitTest(x, y)
If Not (nodTarget Is Nothing) Then
Set TreeView1.SelectedItem.Parent = nodTarget
End If
End Sub
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim nodNode As Node
Set nodNode = TreeView1.HitTest(x, y)
If nodNode Is Nothing Then Exit Sub '// no node
nodNode.Selected = True
End Sub
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)
Dim nodNode As Node
Effect = vbDropEffectMove
Set nodNode = TreeView1.HitTest(x, y)
If nodNode Is Nothing Or blnDragging = False Then
Effect = vbDropEffectNone
End If
End Sub
Private Sub TreeView1_OLEStartDrag(Data As MSComctlLib.DataObject,
AllowedEffects As Long)
AllowedEffects = vbDropEffectMove
blnDragging = True
End Sub
------------------
Do you have the "sorted" property set to true? It should be true only during
load. Might also want to check after the drop..

Pseudocode..

ParentKey = TargetNode.Key

If ParentKey = "ROOT" Then
ParentKey = "0"
Else
ParentKey = Right$(ParentKey, Len(ParentKey) - 1)
End If

sKey = DragNode.Key
sKey = Right$(sKey, Len(sKey) - 1)

.DropHighlight = Nothing

If TargetNode.Key <> "ROOT" Then
TargetNode.ExpandedImage = "OPENFOLDER"
End If
If OldParentNode.Children <= 1 And OldParentNode.Key <> TargetNode.Key
Then
If OldParentNode.Key <> "ROOT" Then
OldParentNode.ExpandedImage = "CHILD"
OldParentNode.Image = "CHILD"
End If
End If