[论文]第11章vb菜单程序设计

[论文]第11章vb菜单程序设计

作业:P314 一，二题

P314 第三题的1，2

在前面所讲的各种操作中，事件的执行都是通过“事件驱动程序”完成的。那么，如果我们要设计菜单，该如何操作呢,

第11章菜单程序设计

看看WORD的菜单。

11.1 用菜单编辑器建立菜单

一、菜单类型

1. 下拉式菜单

例:单击“文件”菜单所显示的就是下拉式菜单。

2. 弹出式菜单

例:用鼠标右键单击窗体时所显示菜单是弹出式

菜单。

二、启动菜单编辑器的方法

有4种方法:

(1) 执行“工具”菜单中的“菜单编辑器”命令。

(2) 执行热键 Ctrl+E

(3) 单击标准工具栏中的“菜单编辑器”按钮。

(4) 在窗体上单击鼠标右键，从弹出的菜单中选

择“菜单编辑器”命令。

准备:打开cx1程序。

三、菜单编辑器窗口的组成

窗口分三部分:数据区、编辑区和菜单项显示区。

1. 数据区

(1) 标题:输入所建立菜单的名字及菜单中每个菜单项的标题。运行后可以看到标题。

注意:如果想在菜单中加一条分隔线，只需输入一个减号(-)。

(2) 名称:用来输入菜单名及各菜单项的控制名(相当于Name属性)，运行后可以看不到，用于编程。

(3) 索引:用来为控件数组设立下标。

(4) 快捷键:用来设置菜单项的快捷键。

(5) 协调位置:是一个列表框，用来确定菜单或菜单项是否出现或在什么位置出现。

0—None 菜单项不显示

1—Left 菜单项靠左显示

0—Middle 菜单项居中显示

0—Right 菜单项靠右显示

(6) 复选:当选择该项时，可以在相应的菜单项旁加上指定的记号(例如“?”)

(7) 有效:用来设置菜单项是是否能被激活。如果未选中，则相应的菜单项变灰。

(8) 可见:确定菜单项是否可见。

2(编辑区(对菜单进行编辑)

(1)左、右箭头:由来产生或取消内缩符号(菜单的降级升级)。

单击一次右箭头，产生4个点，菜单层次降一级。

单击一次左箭头，删除4个点，菜单层次升一级。

(2)上、下箭头:用来移动菜单项的位置。

(3)下一个:移到下一个菜单项(可用回车替代)。

(4)插入:在当前位置插入新的菜单项。

(5)删除:删除当前菜单项。

3(菜单项显示区

显示所有菜单。并用内缩符号....表明菜单项的层次关系。

有关说明:

(1)内缩符号由4个点组成，表明菜单项层次。一个内缩符号(4个点)代表一层，两个内缩符号表示两层，最多可设置六层。

(2)如果标题栏只输入一个“-”，表示产生一个分隔线，分隔线可以不输入名称Name。

(3)除分隔线外，所有菜单项都可接受Click事件。

(4)输入菜单项时，如果字母前加“&”，则显示

菜单时在该字母下加一条下划线，可通过ALT+带下划线的字母打开相应菜单。演示:在“打开”后加“(&O)”。

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

1.设计用户界面

设第一个文本框的名称为num1,第二个文本框的名称

为num2,第三个标签的名称为result.

各菜单项的属性为下表:

内缩符号分类标题名称热键

计算加、减主菜单项1 C1 无无

子菜单项1 加 Add 1 Ctrl+A

子菜单项2 减 Min 1 Ctrl+B

主菜单项2 计算乘、除 C2 无无

子菜单项1 乘 Mul 1 Ctrl+C

子菜单项2 除 Div 1 Ctrl+D

主菜单项2 清除与退出 C3 无无

子菜单项1 清除 Clear 1 Ctrl+E

子菜单项2 退出 quit 1 Ctrl+F

2. 编写程序代码

用户单击菜单项就可打开相应的事件。

加法事件:

Private Sub add_Click()

result.Caption=Val(num1.Text)+Val(num2.Text) End Sub

减法事件:

Private Sub min_Click()

result.Caption=Val(num1.Text)-Val(num2.Text) End Sub

乘法事件:

Private Sub mul_Click()

result.Caption=Val(num1.Text)*Val(num2.Text) End Sub

除法事件:

Private Sub div_Click()

result.Caption=Val(num1.Text)/Val(num2.Text) End Sub

清除事件:

Private Sub clear_Click()

num1.Text = ""

num2.Text = ""

result.Caption = ""

num1.SetFocus

End Sub

退出事件:

Private Sub quit_Click()

End

End Sub

11.6 弹出式菜单

弹出式菜单是一种小型菜单，它可以在窗口的某

个地方显示出来，对程序事件作出反应。

建立弹出式菜单，分2步:

(1) 先在菜单编辑器建立菜单。

(2) 用Popupmenu方法显示弹出式菜单。

一、Popupmenu方法的格式