VB考试教程：菜单程序设计三用菜单编辑器建立菜单

3.用菜单编辑器创建菜单。

下面用一个简单的例子来说明菜单编程的基本方法和步骤。

1设计一个有算术运算(+、-、×、/)和清零功能的菜单。从键盘输入两个数，用菜单命令求它们的和、差、积、商，并显示出来。

根据问题的意思，菜单可以分为三个主菜单项，分别是计算加减、计算乘除、清除退出。它们各有两个子菜单，即:

计算加减的子菜单项:加减

计算乘除的子菜单项:乘除

“清除和退出”子菜单项:清除和退出

另外，对于输入和显示，建立了另外两个文本框(输入数据)和四个标签。

1.界面:

其中Lable4的BorderStyle属性设置为1。

2.菜单项属性:

标题名称缩写符号热键
主菜单项1
子菜单项1
子菜单项2
主菜单项2
子菜单项1
子菜单项1[/br计算并除法
乘法
除法
清除并退出
清除
退出calc1
添加
min
calc

3.设计菜单:

步骤:

打开菜单编辑器。

在标题栏(主菜单项1)输入“计算加减”，菜单项显示区会出现相同的标题名称。

按Tab或使用鼠标将输入光标移动到“名称”列。

在“名称”字段中键入“Calc1 ”,菜单项显示区域没有变化。

点击编辑区的下一步按钮，菜单项显示区的条形光标下移。同时清除标题列和名称列空，光标返回标题列。

同样，在标题列和名称列中分别输入“添加”和“添加”。

在编辑区点击右箭头→菜单显示区的“添加”向右移动。同时左侧出现一个缩进符号，表示“加”是“计算加减”的下一级菜单。

点击快捷键右端的箭头，选择“Ctrl+A”作为“添加”菜单项的热键。这时，菜单项的右侧出现“Ctrl+A”。

创建相同的“减号”菜单项:“标题”为“减号”；“名”是“民”；热键是“Ctrl+B”。

单击“下一步”按钮创建主菜单项2。因为要创建主菜单项，所以应该去掉缩进符号。点击左箭头“↓”，缩进符号消失，可以建立主菜单。

另外两个主菜单的建立与前面的步骤类似，不再赘述。设计后的窗口如下。在“确定”之后结束。

设计完成后，表单的顶行显示主菜单项，通过单击主菜单项，可以以下拉方式显示其子菜单。

4.程序代码:

每个菜单项都可以接收一个点击事件。每个菜单项都有一个名称(Name属性)，它与Click放在一起形成Click事件过程。

option Explicit
Dim x As Single

-

私有Sub Add_Click()

x = Val(Text1。Text) + Val(Text2。Text)
Label4。Caption = Str$(x)

末端接头

-

私有Sub Min_Click()

x = Val(Text1。Text) - Val(Text2。Text)
Label4。Caption = Str$(x)

末端接头

-

私有Sub Mul_Click()

x = Val(Text1。文本)* Val(文本2。Text)
Label4。Caption = Str$(x)

末端接头

-

Private Sub Div_Click()

Text2.text = "0 "或Text2.text = " "则
msgbox "除数不能为0！"
Else
x = Val(Text1。Text) / Val(Text2。Text)
Label4。Caption = Str$(x)
End If

末端接头

-

私有子Clean_Click()

文本1。Text = ""
Text2。Text = ""
Label4。Caption = ""
Text1。获得焦点

末端接头

-

private Sub Quit _ Click()
End
End Sub

5.运行程序:

在两个文本框中输入数字后，单击每个菜单项或热键以查看执行结果。