Question

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

Answer 1

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

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

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

IfButton=2Then'如果点击右键

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

EndIf

EndSub

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

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

PrivateSubNew_Click()

EndSub

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

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