三、用菜单编辑器建立菜单

下面通过一个简单的例子说明菜单程序设计的基本方法和步骤。

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

根据题意，可以将菜单分为3个主菜单项，分别为“计算加、减”、“计算乘、除”和“清除与退出”，它们各有两个子菜单，即：

    “计算加、减”的子菜单项：加、减

    “计算乘、除”的子菜单项：乘、除

    “清除与退出”的子菜单项：清除、退出

另外，为了输入和显示，再建立两个文本框（输入数据）和四个标签。

1、界面：

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

2、菜单项属性：

3、设计菜单：

步骤：

打开“菜单编辑器。

在标题栏中键入“计算加、减”（主菜单项1），在菜单项显示区出现同样的标题名称。

按Tab键或用鼠标把输入光标移到“名称”栏。

在“名称”栏中键入“Calc1”，此时菜单项显示区中没有变化。

单击编辑区中“下一个”按钮，菜单项显示区中条形光标下移，同时“标题”栏、“名称”栏被清空，光标回到“标题”栏。

同样在“标题”栏和“名称”栏分别输入“加”和“Add”。

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

单击“快捷键”右端的箭头，从中选出“Ctrl+A”作为“加”菜单项的热键，此时，在该菜单项右侧出现“Ctrl+A”。

同样建立“减”菜单项：“标题”为“减”；“名称”为“Min”；热键为“Ctrl+B”。

单击“下一个”按钮，建立主菜单项2，由于要建立的是主菜单项，所以要消除内缩符号。单击左箭头“←”，内缩符号消失，即可建立主菜单。

其它两个主菜单的建立与前面步骤类似，不再重复。设计完成后的窗口如下图。“确定”后结束。

设计完成后，窗体顶行显示主菜单项，单击某个主菜单项，即可下拉显示其子菜单。

4、程序代码：

每个菜单项都可以接收Click事件。每个菜单项都有一个名字（Name属性），将这个名字与Click放在一起，组成Click事件过程。

    Option Explicit
    Dim x As Single

    Private Sub Add_Click()

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

    End Sub

    Private Sub Min_Click()

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

    End Sub

    Private Sub Mul_Click()

        x = Val(Text1.Text) * Val(Text2.Text)
        Label4.Caption = Str$(x)

    End Sub

    Private Sub Div_Click()

        If Text2.Text = "0" Or Text2.Text = "" Then
            MsgBox "除数不能为0！"
        Else
            x = Val(Text1.Text) / Val(Text2.Text)
            Label4.Caption = Str$(x)
        End If

    End Sub

    Private Sub Clean_Click()

        Text1.Text = ""
        Text2.Text = ""
        Label4.Caption = ""
        Text1.SetFocus

    End Sub

    Private Sub Quit_Click()
        End
    End Sub

5、运行程序：

在两个文本框中输入数字后，分别单击各菜单项或热键，看一看执行结果。

[程序演示]        [程序下载]

本例中的“有效”属性和“可见”属性采用默认的“True”，只有在必要时才设置其它属性。下面将讨论这些情况。