Drag and Drop in Treeview control

[emady]

Hi everyone,

I have an access form that has a treeview activeX control in it.
I want to be able to drag a node from one position to another within the same treeview control. I know the index of the node being dragged using the ClickNode event but the problem I am facing is that I can't find a way to know where the dragged item is being dropped. All I get from OLEDragDrop event is x and y coordinates which I don't know how to relate to the nodes in the treeview control.

Can anyone help me please????

Thanks,

Elia

 

[dk]

Hi,

Look at the Hittest method of the treeview. It does exactly what you want

 

[emady]

Hi Dan,

Thank you for your help, it worked!!!!!

Hi,

Look at the Hittest method of the treeview. It does exactly what you want

 

[emady]

I have one more question please:
How can you have the treeview control to autoexpand?

Thanks

Elia

 

[dk]

Hi,

You can control it using the Expanded property. This code should demonstrate it:-

Private Sub UserForm_Initialize()
PopulateTreeView
End Sub


Private Sub PopulateTreeView()
'Sample code for populating a treeview control on a VBA userform
'Daniel Klann, 12th Februrary 2004

    Dim tvwNode As Node

    With Me.TreeView1

        Set tvwNode = .Nodes.Add(Key:="Earth", Text:="Earth")

        'This line below will tell the treeview control that we want the children of Earth
        'to be expanded by default i.e. the countries will be visible when the form is first opened.
        tvwNode.Expanded = True

        'Add UK and UK towns
        .Nodes.Add relative:="Earth", relationship:=tvwChild, Key:="UK", Text:="UK"
        .Nodes.Add relative:="UK", relationship:=tvwChild, Key:="Woking", Text:="Woking"
        .Nodes.Add relative:="UK", relationship:=tvwChild, Key:="London", Text:="London"

        'Add USA and USA towns
        .Nodes.Add relative:="Earth", relationship:=tvwChild, Key:="USA", Text:="USA"
        .Nodes.Add relative:="USA", relationship:=tvwChild, Key:="New York", Text:="New York"
        .Nodes.Add relative:="USA", relationship:=tvwChild, Key:="San Diego", Text:="San Diego"

        'Add Australia and Australian towns
        .Nodes.Add relative:="Earth", relationship:=tvwChild, Key:="Australia", Text:="Australia"
        .Nodes.Add relative:="Australia", relationship:=tvwChild, Key:="Sydney", Text:="Sydney"
        .Nodes.Add relative:="Australia", relationship:=tvwChild, Key:="Cairns", Text:="Cairns"


    End With

End Sub

 

[jmiaebrown]

Hi... Can you show an example of code processing the drag and drop events? I want to move items on my spreadsheet as they are moved in my treeview.

Thanks.