Popup Menu of Right Click on a Treeview

[Marryp]

I would like to use the right click on a TreeView to call my pop-up menu that has a expand and colapse functions. I tried the code below in VB and it works but it doesn't in MS Access 2000:

Code

Private Sub tvwDB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

Dim n As Node

If Button And acRightButton Then
Set n = tvwDB.HitTest(x, y)
If Not (n Is Nothing) Then
Set tvwDB.SelectedItem = n

'ShortcutMenuBar = "theMenu"

PopupMenu theMenu, vbPopupMenuLeftAlign Or vbPopupMenuRightButton

End If
End If

End sub

 

[freewilly]

Did you ever solve this May6? I want to do the same thing.

FW

 

[JTregear]

May6

Is it as simple as a minor mistake in your If expression.

Try changing it to 'If Button = acRightButton Then'

Regards

JT

 

[Marryp]

I learned that this function is not available in VBA only in VB.

 

[JTregear]

May6

I have just got a similar function to work correctly in Access 2002!

The only significant difference to your code was that I used a popup form rather than a popup menu and used the Click event of the treeview to record which was the currently selected node.

Regards

JT

 

[lmontes]

Did anybody get this to work?
I want to create a right-click menu to copy, paste or move the selected node.