请问：如何创建全局Popup菜单

Question

我想在软件的多个界面中单击鼠标右键弹出同样的菜单。我想在不同的界面中调用用一个public sub来创建这个菜单。我该怎么做？

Answer 1

在Form2中建立一个菜单mm
下面的代码在Form1中调用mm,如果要做到全局的，只要做个消息钩子捕捉鼠标右键
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Test
End Sub
Sub Test()
    Dim p As New Form2
    PopupMenu p.mm
End Sub

Answer 2

做一个窗体FrmMenu，设计好要弹出的菜单MenuA
'Module1中的代码：
Public Sub ShowMenu()
    FrmMenu.PopupMenu FrmMenu.MenuA
End Sub然后你在需要弹出菜单的时候，直接调用ShowMenu就行了。
需要注意的是程序退出的时候一定要记得执行Unload FrmMenu。