Visual Basic语言程序设计教程(第二版) 第12章 菜单与对话框

下拉式菜单
2．编写代码 菜单设置好后，需要给每个需要完成某些功能的菜 单项编写对应的代码。给例12-1的窗体内添加一个文 本框Text1，Text1的属性如表12- 2所示。 对象名 属性 Name Text MultiLine ScrollBar 属性值 Text1 清空 True 3-both
1．属性设置区： (1)“标题” (2)“名称” (3)“索引” (4)“快捷键” (5)“复选” (6)“有效” (7)“可见” (8)“帮助上下文” (9)“协调位置”
下拉式菜单
2．编辑区 (1) 用于调整菜单项的级别，单击一次 按钮， 则产生一个内缩符号“…”，表示为上一级的子菜 单；单击一次 ，删除一个内缩符号，则该 菜单项被提高一个级别。菜单项的级别最多可以设 置6级。 (2) 通过单击 或 按钮可将当前被选择 的菜单项在同级里向上或向下移动一个位置。
下拉式菜单
运行时可通过字体菜单修改文本中输入文字的字体。 运行的各种结果如图12-5所示。
下拉式菜单
例12.2设计一个具有加、减、乘、除、清除和退出功 能的程序。 思路：在第4章中曾利用单选按钮完成过该例部分 功能，此处利用菜单来完成全部功能。该例的设计界 面如图12-6 所示：
下拉式菜单
下拉式菜单
下拉式菜单
在用户界面设计状态单击某一菜单项，编辑窗口出现该菜 单Click事件过程的代码，可在其中输入要执行的代码。 各菜单项对应的代码如下： Private Sub add_Click() '加法 x = Val(Text1.Text) + Val(Text2.Text) Text3.Text = Str(x) End Sub Private Sub clear_Click() '清除 Text1 = "": Text2 = "": Text3 = "" Text1.SetFocus End Sub
Text
下拉式菜单
单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的 “单击”事件代码编辑窗口，下面为“黑体”子菜单编写代码如下： Private Sub Font1_Click() Text1.Font = "黑体" End Sub 此处黑体菜单的名称即为在设计时输入的名称“Font1”。 按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码 编写。具体代码如下： Private Sub Font2_Click() Text1.Font = "宋体" End Sub Private Sub Font3_Click() Text1.Font = "楷体_Gb2312" End Sub
下拉式菜单
例12.1设计一个包含菜单的窗体，其中主菜单为文件和编 辑菜单，文件菜单包含新建、打开、保存、退出四个下拉 菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜 单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具 体设计完毕后效果如图12-4所示。
下拉式菜单
1．建立菜单
标题 文件 新建 打开 保存 － 退出 编辑 剪切 复制 粘贴 字体 黑体 宋体 楷体 名称 mnuFile mnuFileNew mnuFileOpen mnuFileSave mnuFileBar mnuFileQuit mnuEdit mnuEditCut mnuEditCopy mnuEditPaste mnuEditFont Font1 Font2 Font3 上级菜单 无 文件 文件 文件 文件 文件 无 编辑 编辑 编辑 编辑 字体 字体 字体 热键 F N O S 无 Q E 无 无 无 无 无 无 无 快捷键 无 Ctrl＋N Ctrl＋O Ctrl＋S 无 Ctrl＋Q 无 Ctrl＋X Ctrl＋C Ctrl＋V Ctrl＋F 无 无 无
下拉式菜单
2．编辑区 (3)“下一个” 介绍当前菜单项的编辑进入下一菜单项的编辑。 (4)“插入” 在当前菜单项的前面插入一个空白菜单项。 (5)“删除” 删除当前菜单项。
下拉式菜单
3．菜单项显示区 该区域用于显示输入的菜单项，编辑好的菜单项可通 过内缩符号表明其层次，如图12-3所示：编辑为主菜 单，其下有4个子菜单，而字体子菜单下还有3个二级 菜单。
下拉式菜单
Байду номын сангаас
下拉式菜单
利用菜单编辑器，可以对窗体中所需的菜单各项属性进行 设置。菜单编辑器具体可分为3个部分，上部为属性设置 区，用来对菜单项进行标题、名称等的属性设置；中部为 编辑区，包含7个按钮，用来对输入的菜单项进行简单的 编辑；下部为菜单项显示区，前面所编辑的菜单项在此处 显示。
下拉式菜单
第12章 菜单与对话框
本章的学习要点
用菜单编辑器建立菜单
菜单项的控制
(1)有效性控制 (2)菜单项标记 (3)键盘选择 菜单项的增减
文件对话框
其它对话框（“颜色”、“字体”、“打印”对话框）
12.1.1下拉式菜单
下拉式菜单的主菜单显示在菜单条里，VB中包含了13 个主菜单，如图12-1 所示。 当程序执行时用鼠标或键盘选择某个菜单项会弹出下 拉子菜单。例如VB中单击“文件”主菜单或利用 “Alt”＋“F”键的组合可以弹出文件的下拉子菜单。 在某些菜单项中还包含有分隔条，利用分隔条可将不 同功能菜单项进行分隔。菜单项还可包含快捷键和热 键，利用快捷键和热键的正确使用可以直接利用键盘 调用对应的功能，提高操作速度。
属性设置
标题 名称 上级菜单 快捷键
计算1 加 减 计算2 乘 除 其他 清除 退出
js1 add Sub Js2 Mul Div Other Clear Exit
无 计算1 计算1 无 计算2 计算2 无 其他 其他
无 Ctrl＋A Ctrl＋B 无 Ctrl＋C Ctrl＋D 无 Ctrl＋E Ctrl＋F
下拉式菜单
菜单显示在窗体中，因此菜单的设置也和其他控件一 样在窗体内进行。VB为用户提供了菜单编辑器。打开 菜单编辑器的方法有如下几种： 1．在VB中单击“工具”菜单中的“菜单编辑器”子菜 单； 2．利用“Ctrl”＋“E”键的组合； 3．在需要建立菜单的窗体上右击，在弹出的菜单中选 择“菜单编辑器”命令； 4．单击工具栏中的“菜单编辑器” 快捷按钮。 用上述任一方法打开的“菜单编辑器”的对话框，如 图12-2所示。