Question

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

Answer 1

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

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果在窗体上按下鼠标

If Button = 2 Then '如果点击右键

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

End If

End Sub

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

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

Private Sub New_Click()

End Sub

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

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