退出
第 10章 菜单程序设计
退出
第 2页
10.1 概述
10.2 下拉式菜单的设计
10.3 菜单项的控制
10.4 弹出式菜单
退出
第 3页
10.1 概述
?下拉式菜单
?弹出式菜单
?设计菜单的步骤
?菜单编辑器
退出
第 4页
下拉式菜单
下拉式菜单 位于窗口的顶部，它有一个包含多个菜单项的主菜单，称
为 菜单栏 。菜单栏中的菜单项称为 菜单标题 。
退出
第 5页
弹出式菜单
单击鼠标右键弹出的菜单称为 弹出式菜单, 或称为, 快捷菜单,,
,上下文相关菜单, 。
退出
第 6页
设计菜单的步骤
设计菜单的一般步骤为：
1,界面设计, 包括顶级菜单中的各菜单项, 各级子菜单中
的菜单项, 以及它们各自的事件过程 。
2,打开菜单编辑器, 建立各级菜单, 并设置相应的属性 。
3,编写程序代码 。 为相应的菜单项编写 Click事件代码 。
退出
第 7页
菜单编辑器
1,打开菜单编辑器 的方法
2,菜单编辑器的组成
菜单编辑器窗口由 3部分组成：数据区, 编辑区和菜单显示区 。
数据区
编辑区
菜单显示区
退出
第 8页
10.2 下拉式菜单的设计
【 例 10.1】 用下拉式菜单设计一个具有加, 减, 乘, 除, 清除和退出功
能的程序 。
退出
第 9页
10.3 菜单项的控制
1.有效性控制
实现菜单项的有效性控制的两种方法：
⑴ 在设计阶段, 选中菜单编辑器窗口中的, 有效 （ E）,选项 。
⑵ 在编写代码阶段, 通过设置 Enabled属性来实现 。
格式：菜单项名称, Enabled=True|False
例如,Mul.Enabled=False
2,菜单项标记
实现菜单项标记的两种方法：
⑴ 在设计阶段, 选中菜单编辑器窗口中的, 复选 （ C）,选项 。
⑵ 在编写代码阶段, 通过设置 Checked属性来实现 。
格式,菜单项名称, Checked=True| False
退出
第 10页
例如：
Private Sub Mul_Click()
Mul.Checked=NotMul.Checked
End Sub
若要判断菜单项是否处于活动状态, 可用下面的 IF语句格式：
IfMul.CheckedThen
在这里编写 Mul菜单项处于活动状态时, 要执行的代码 。
End If
退出
第 11页
菜单项的键盘选择
访问键,同时按下 Alt键和加下划线的字母键, 就可以弹出菜单 。
快捷键,直接执行菜单命令
访问键的建立方法：
在设计菜单时, 在菜单项的标题中加入一个由, &” 引导的字母 。
例如：在例 10.1中将, 计算 1” 改为, 计算 1&A”或, &A计算 1”
退出
第 12页
菜单项的增减
Load方法加入新的菜单项
Unload方法删除已有的菜单项
【 例 10.2】 下面程序为增加或减少菜单项的程序 。 运行程序时, 单击
,增加, 将增加一个新菜单项, 依次为, 新增 1”,, 新增 2” ……,
单击, 减少, 将从最下面的菜单项开始删除菜单项 。
退出
第 13页
10.4 弹出式菜单
建立弹出式菜单的步骤：
1,用菜单编辑器建立菜单, 并把主菜单项的 Visible（ 可见性 ） 属性设置为
False。
2,用 PopupMenu方法弹出显示 。 一般将此方法放入窗体的 MouseDown事
件过程中 。
格式,[对象名,]PopupMenu菜单名 [,Flags[,X[,Y[，
BoldCommand]]]]
说明：
Flags,位置参数, 用来指定弹出式菜单的位置及行为 。 包含位置常数和行
为常数 。
X,Y,坐标值, 表示弹出式菜单在窗体上显示的位置, 默认为鼠标坐标 。
BoldCommand,用于指定菜单中要以粗体显示的菜单名称
【 例 10.3】 用弹出菜单命令改变窗体颜色 。
第 10章 菜单程序设计
退出
第 2页
10.1 概述
10.2 下拉式菜单的设计
10.3 菜单项的控制
10.4 弹出式菜单
退出
第 3页
10.1 概述
?下拉式菜单
?弹出式菜单
?设计菜单的步骤
?菜单编辑器
退出
第 4页
下拉式菜单
下拉式菜单 位于窗口的顶部，它有一个包含多个菜单项的主菜单，称
为 菜单栏 。菜单栏中的菜单项称为 菜单标题 。
退出
第 5页
弹出式菜单
单击鼠标右键弹出的菜单称为 弹出式菜单, 或称为, 快捷菜单,,
,上下文相关菜单, 。
退出
第 6页
设计菜单的步骤
设计菜单的一般步骤为：
1,界面设计, 包括顶级菜单中的各菜单项, 各级子菜单中
的菜单项, 以及它们各自的事件过程 。
2,打开菜单编辑器, 建立各级菜单, 并设置相应的属性 。
3,编写程序代码 。 为相应的菜单项编写 Click事件代码 。
退出
第 7页
菜单编辑器
1,打开菜单编辑器 的方法
2,菜单编辑器的组成
菜单编辑器窗口由 3部分组成：数据区, 编辑区和菜单显示区 。
数据区
编辑区
菜单显示区
退出
第 8页
10.2 下拉式菜单的设计
【 例 10.1】 用下拉式菜单设计一个具有加, 减, 乘, 除, 清除和退出功
能的程序 。
退出
第 9页
10.3 菜单项的控制
1.有效性控制
实现菜单项的有效性控制的两种方法：
⑴ 在设计阶段, 选中菜单编辑器窗口中的, 有效 （ E）,选项 。
⑵ 在编写代码阶段, 通过设置 Enabled属性来实现 。
格式：菜单项名称, Enabled=True|False
例如,Mul.Enabled=False
2,菜单项标记
实现菜单项标记的两种方法：
⑴ 在设计阶段, 选中菜单编辑器窗口中的, 复选 （ C）,选项 。
⑵ 在编写代码阶段, 通过设置 Checked属性来实现 。
格式,菜单项名称, Checked=True| False
退出
第 10页
例如：
Private Sub Mul_Click()
Mul.Checked=NotMul.Checked
End Sub
若要判断菜单项是否处于活动状态, 可用下面的 IF语句格式：
IfMul.CheckedThen
在这里编写 Mul菜单项处于活动状态时, 要执行的代码 。
End If
退出
第 11页
菜单项的键盘选择
访问键,同时按下 Alt键和加下划线的字母键, 就可以弹出菜单 。
快捷键,直接执行菜单命令
访问键的建立方法：
在设计菜单时, 在菜单项的标题中加入一个由, &” 引导的字母 。
例如：在例 10.1中将, 计算 1” 改为, 计算 1&A”或, &A计算 1”
退出
第 12页
菜单项的增减
Load方法加入新的菜单项
Unload方法删除已有的菜单项
【 例 10.2】 下面程序为增加或减少菜单项的程序 。 运行程序时, 单击
,增加, 将增加一个新菜单项, 依次为, 新增 1”,, 新增 2” ……,
单击, 减少, 将从最下面的菜单项开始删除菜单项 。
退出
第 13页
10.4 弹出式菜单
建立弹出式菜单的步骤：
1,用菜单编辑器建立菜单, 并把主菜单项的 Visible（ 可见性 ） 属性设置为
False。
2,用 PopupMenu方法弹出显示 。 一般将此方法放入窗体的 MouseDown事
件过程中 。
格式,[对象名,]PopupMenu菜单名 [,Flags[,X[,Y[，
BoldCommand]]]]
说明：
Flags,位置参数, 用来指定弹出式菜单的位置及行为 。 包含位置常数和行
为常数 。
X,Y,坐标值, 表示弹出式菜单在窗体上显示的位置, 默认为鼠标坐标 。
BoldCommand,用于指定菜单中要以粗体显示的菜单名称
【 例 10.3】 用弹出菜单命令改变窗体颜色 。
