vb中弹出式菜单怎么编写子菜单？

Question

如题所述

Answer 1

1、按下组合键ALT+F11，打开vba代码编辑窗口。

2、VBA单元格中生成弹出式菜单第二步，在左侧的vba工程窗口空白区域上右击鼠标，弹出菜单中选择“插入”——“模块”。

3、VBA单元格中生成弹出式菜单第三步，在新建的模块中，输入以下代码。

4、定义一个CommandBar对象类型，用来保存单元格右键快捷菜单命令项。

5、再定义了一个菜单项对象，指向CommandBar对象类型的一个新增菜单项，并指定单击新增的命令时执行的子过程名称为test，显示为测试。

6、再定义一个子过程test，用来响应菜单的动作。

7、VBA单元格中生成弹出式菜单第四步，将光标定义在第一个过程中，按F5运行该过程。

8、最终效果如图所示。

Answer 2

先用菜单编辑器编辑一个带有子菜单的菜单，如需美观，该菜单可以隐藏。再用PopUpMenu函数调用这个菜单。

格式：

PopUpMenu (菜单名称)

例子：

PopUpMenu mnuPopUp

运行结果：

本回答被提问者采纳

Answer 3

用MouseUp事件里的 Button参数 1表示左键 2表示右键
建一个菜单 vbFile 子菜单vbRight:
(右键点击窗体 就会弹出 vbFile下的几个子菜单了)
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "点击了左键"
Case 2
Print "点击了右键"
PopupMenu vbFile
End Select
End Sub