Treeview with right-click menu?

[norwood]

Does anyone know a way of adding a right-click menu for a treeview control?

I'd like to give the users some options when right-clicking items in my treeview, such as "open form", "delete item", etc.

Is this possible?

any help is appreciated!!!!

 

[Schof]

Yes it is possible. You need to search this (and other) forums for examples.

 

[norwood]

Thanks!

I've tried searching this forum but didn't find any post that would contain specifically that... maybe I searched for the wrong terms? If you could point me to any thread (here or somewhere else), it would really help.

 

[Schof]

First off, create custom commandbars (I.e. shortcut menus) that you want to use for your treeview. Then here is a snippet of code that should get you on your way.

Private Sub treeView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
On Error GoTo Err_treeView_MouseDown

    Dim nodOverNode As Node
    
    Set nodOverNode = Me.treeView.HitTest(X, Y)
    
    If Not nodOverNode Is Nothing Then
        Me.treeView.Nodes(nodOverNode.index).Selected = True
        Call treeView_NodeClick(nodOverNode)
    End If
    
    If Button = acRightButton Then ' Popup shortcut menu, but which one?
        If nodOverNode Is Nothing Then ' This one is not context sensitive, it is the form default.
            Application.CommandBars(Me.ShortcutMenuBar).ShowPopup
        Else ' This one is context sensitive (I.e. could be different depending on node clicked)
            Application.CommandBars("MyShortcutMenuBar").ShowPopup ' where MyShortcutMenuBar is your custom menubar name
        End If
    End If

Exit_treeView_MouseDown:
    Exit Sub

Err_treeView_MouseDown:
    MsgBox Err.Description
    Resume Exit_treeView_MouseDown

End Sub

 

[norwood]

I'm getting an error at
Call treeView_NodeClick(nodOverNode)
saying "sub or function not defined". Any idea why is that?

BTW, I've changed the calls to treeview to my own treeview name (axTreeview).

thanks!

 

[Schof]

Given that you are using axTreeview, the event procedure you may want to call is axTreeview_NodeClick. If you do not want anything happening when the user clicks on the node then you can remove this bit of code. Otherwise you will need to create that procedure (if it does not already exist) and write the appropriate code.