VB如何右键窗体d出菜单？

先用菜单编辑器制作一个你想d出的菜单，将主菜单项的可见选项去掉，但要给它一个名字，标题随便。其它子菜单项都要有名称，便于给它写代码。

假设主菜单项名称为"Caidan"，然后输入以下代码：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'如果在窗体上按下鼠标

IfButton=2Then'如果点击右键

PopupMenuCaidan'd出名为"Caidan"的菜单

EndIf

EndSub

如果要给d出菜单中的选项编代码，就要直接编写代码。

假设子菜单项的名称为"New"

PrivateSubNew_Click()

EndSub

这两行代码之间就是点击了名为"New"的选项之后的动作。

就是要先建立一个菜单。然后用popupmenu来d出这个菜单。当然最上级菜单设置成visible=false，这样这个d出菜单就是一个独立的专门的d出菜单了

1、首先，需要点击菜单栏中的工具按钮。

2、点击完工具按钮之后，然后我们点击菜单编辑器。

3、除了点击菜单编辑器，我们也可以记住他的快捷键。

4、此时，便可以看到菜单编辑器页面。

5、还可以在这里设置快捷键。

6、或者便可以开始输入名称和系统名称。

请进行如下 *** 作。

打开“菜单编辑器”，按常规方法添加菜单。例如：

－－－－－－－－－－－

菜单 (名称为mnuPop)

....菜单1 (名称为mnuPop1)

....菜单2 (名称为mnuPop2)

－－－－－－－－－－－

把“标题”菜单的“可见”复选框去掉。

添加如下代码：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbKeyRButton Then PopupMenu mnuPop

End Sub

绝对没问题。

---