[RESOLVED] Click TreeView Node!

[arpan_de]

In a WebBrowser project, a TreeView is used to list the History of the URLs a user has visited. Other than left-clicking any node in the TreeView to navigate to the URLs, users can also navigate by dragging & dropping a node in the WebBrowser. This is how I am implementing it:

Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If (Button = vbLeftButton) Then
        TreeView1.SelectedItem = TreeView1.HitTest(x, y)
        TreeView1.Drag vbBeginDrag
    End If
End Sub
 
Private Sub wWeb_DragDrop(Source As Control, x As Single, y As Single)
    If Not (Source.SelectedItem Is Nothing) Then
        wWeb.Navigate2 Source.SelectedItem.Tag
    End If
End Sub

The above code implements the drag-drop feature exactly as I want it but strangely, the WebBrowser doesn't navigate to the Tag of the node (which is the URL) when a node is just left-clicked.

What am I missing here?

[Static]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    wWeb.Navigate2 Node.Tag
End Sub

[brucevde]

The Node_Click event occurs after Mouse_Down, however Node_Click will not fire because the Drag operation has taken over. Use the right mouse button for dragging.

[Static]

ahh true...

heres a question... Y "force" (Code) the drag? u can just set the control to allow drag... then u dont have to program it....

[arpan_de]

heres a question... Y "force" (Code) the drag? u can just set the control to allow drag... then u dont have to program it....

Sorry, Static, I couldn't exactly follow what are you trying to say. Please clarify!

[arpan_de]

Use the right mouse button for dragging.

Bruce, right-mouse click is already reserved for doing something else.........

[arpan_de]

What I don't understand is I am using exactly the same code for a ListView (of course, except for the control names) & it's working perfectly; so what am I missing here?

[brucevde]

Bruce, right-mouse click is already reserved for doing something else.........

So is the Left-Mouse click, but now you want to use it for two different operations. Plus, for me, the ListView functions exactly the same as the Treeview. This is the code I used

Private Sub Form_Load()
    With ListView1
        .View = lvwReport
        .ColumnHeaders.Add , , "Testing"
        .ListItems.Add , , "www.windmillsoftware.ca"
        .ListItems.Add , , "www.chinamouldings.com"
        .ListItems(1).Tag = .ListItems(1).Text
        .ListItems(2).Tag = .ListItems(2).Text
        .ColumnHeaders(1).Width = 4000
    End With
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Debug.Print "Item Click"
End Sub
 
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbLeftButton) Then
        ListView1.SelectedItem = ListView1.HitTest(X, Y)
        ListView1.Drag vbBeginDrag
    End If
End Sub
 
Private Sub WebBrowser1_DragDrop(Source As Control, X As Single, Y As Single)
    If Not (Source.SelectedItem Is Nothing) Then
        WebBrowser1.Navigate2 Source.SelectedItem.Tag
    End If
End Sub

Whether it is a TreeView or ListView, the Node_Click and Item_Click events do not fire because of the Drag operation.

[arpan_de]

Bruce, I resolved this issue by adding the following code snippet:

Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
    wWeb.Navigate2 TreeView1.SelectedItem.Tag
End Sub