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

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

例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、运行程序：

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

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

本文共2页：第 [1] [2] 页