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_OLEDr agDrop(Data As MSComctlLib.Dat aObject, 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.HitTe st(x, y)
If Not (nodTarget Is Nothing) Then
Set TreeView1.Selec tedItem.Parent = nodTarget
End If
End Sub
Private Sub TreeView1_Mouse Move(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nodNode As Node
Set nodNode = TreeView1.HitTe st(x, y)
If nodNode Is Nothing Then Exit Sub '// no node
nodNode.Selecte d = True
End Sub
Private Sub TreeView1_OLEDr agOver(Data As MSComctlLib.Dat aObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim nodNode As Node
Effect = vbDropEffectMov e
Set nodNode = TreeView1.HitTe st(x, y)
If nodNode Is Nothing Or blnDragging = False Then
Effect = vbDropEffectNon e
End If
End Sub
Private Sub TreeView1_OLESt artDrag(Data As MSComctlLib.Dat aObject, AllowedEffects As Long)
AllowedEffects = vbDropEffectMov e
blnDragging = True
End Sub
------------------

Thanks
Egghead

[Raoul Watson]

"EggHead" <ro******@shaw. ca> wrote in message
news:DlBue.7666 6$El.58850@pd7t w1no...
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_OLEDr agDrop(Data As MSComctlLib.Dat aObject, 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.HitTe st(x, y)
If Not (nodTarget Is Nothing) Then
Set TreeView1.Selec tedItem.Parent = nodTarget
End If
End Sub
Private Sub TreeView1_Mouse Move(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim nodNode As Node
Set nodNode = TreeView1.HitTe st(x, y)
If nodNode Is Nothing Then Exit Sub '// no node
nodNode.Selecte d = True
End Sub
Private Sub TreeView1_OLEDr agOver(Data As MSComctlLib.Dat aObject, Effect As
Long, Button As Integer, Shift As Integer, x As Single, y As Single, State
As Integer)
Dim nodNode As Node
Effect = vbDropEffectMov e
Set nodNode = TreeView1.HitTe st(x, y)
If nodNode Is Nothing Or blnDragging = False Then
Effect = vbDropEffectNon e
End If
End Sub
Private Sub TreeView1_OLESt artDrag(Data As MSComctlLib.Dat aObject,
AllowedEffects As Long)
AllowedEffects = vbDropEffectMov e
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$(ParentKe y, Len(ParentKey) - 1)
End If

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

.DropHighlight = Nothing

If TargetNode.Key <> "ROOT" Then
TargetNode.Expa ndedImage = "OPENFOLDER "
End If
If OldParentNode.C hildren <= 1 And OldParentNode.K ey <> TargetNode.Key
Then
If OldParentNode.K ey <> "ROOT" Then
OldParentNode.E xpandedImage = "CHILD"
OldParentNode.I mage = "CHILD"
End If
End If