如何在VB中建一个二级菜单 并在二级菜单中添加子菜单项

1）轮局运行VB6.0，新建标准EXE工程，点击工具-菜单编辑器。

2）在标题框键入菜单可见文字，在名称中键入代码中该菜单的名称。

3）鼠标在菜单编辑器下部的文件蓝亮条下方点击，出现下一菜单编辑亮条，在往右箭头按钮处点击。

4）在标题和名称框中填入二级菜单的所需内容陵型，同步骤2。

5）依次重复3、4、2步骤可增加二级腊汪让菜单项目数。

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

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

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

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

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

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

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

8、最终效果如图所示。

VB 的菜单栏不是和 text 或者 label 一样（在左边的控件区域点击就可以）。

而是点击工具栏上面“保存”按钮右边的一个长的像菜单的按钮，或者从“工具”菜单中，选取“菜单编辑器”；或者用快捷键 ctrl+e 都可以调出

而后：

要在菜单编辑器中创建菜单控件，请按照以下步骤执行：

在“标题”文本框中，为第一个菜单标题键入希望在菜单栏上显示的文本。如果希望某一字符成为该菜单项的访问键，也可以在该字符前面加上一个 (&) 字符。在菜单中，这一字符会自动加上一条下划线。

菜单标题文本显示在菜单控件列表框中。

在“名称”文本仔掘竖框中，键入将用来在代码中引用该菜单控件的名字。请参阅本章后面“菜单标题与命名准则”。

单击向左或向右箭头按钮，可以改变该念大控件的缩进级。

如果需要的话，还可以设置控件的其他属性。这一工作可以在菜单编辑器中做，也可以以后在“属性”窗口中做。

选取“下一个”就可以再建一个菜单控件。

- 或者 -

单击“插入”可以在现散羡有的控件之间增加一个菜单控件。

也可以单击向上与向下的箭头按钮，在现有菜单控件之中移动控件。

如果窗体所有的菜单控件都已创建，选取“确定”可关闭菜单编辑器。

创建的菜单标题将显示在窗体上。在设计时，单击一个菜单标题可下拉其相应的菜单项。

---