弹出菜单！

Question

右键窗体不同的地方弹出不同的菜单，怎样实现，在VB菜单编辑器中好像只能编辑一个菜单

Answer 1

用VB的菜单编辑器制作菜单，设置为不可见
在需要弹出右键菜单的地方PopupMenu  菜单名

Answer 2

用popupmenu先用菜单编辑器制菜单
如：Menu(Name=mMenuOne,Visible=False)
    ....Show One
    Menu(Name=mMenuTwo,Visible=False)
    ....Show Two添加两个image后添加如下代码即可实现
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu mMenuOne
End SubPrivate Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu mMenuTwo
End Sub

Answer 3

form_mousedown()事件不是不X Y 参数的嘛，用这个来判断嘛！

Answer 4

可以设计几个菜单！
由于弹出菜单最顶层的是不可见的，
可以在不同的地方弹出不同的 
PopupMenu  顶层菜单名

Answer 5

举个例子：⑴“文件”下有两个子菜单：打开和关闭，则“文件”菜单的可见复选框要去掉
⑵如要在一个文本框中出现右键菜单，则要写如下代码：
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu Mnufile
End Sub
其中Mnufile为“文件”菜单的名称如要在窗体中出现右键菜单,则在上面把text1改为Form