第11章vb菜單程序设计.docVIP

作业：P314 一，二题 编程考核 P314 第三题的1，2 在前面所讲的各种操作中，事件的执行都是通过“事件驱动程序”完成的。那么，如果我们要设计菜单，该如何操作呢？ 菜单程序设计 看看WORD的菜单。 11.1 用菜单编辑器建立菜单 一、菜单类型 下拉式菜单 例：单击“文件”菜单所显示的就是下拉式菜单。 弹出式菜单 例：用鼠标右键单击窗体时所显示菜单是弹出式菜单。 二、启动菜单编辑器的方法 有4种方法： 执行“工具”菜单中的“菜单编辑器”命令。 执行热键 Ctrl+E 单击标准工具栏中的“菜单编辑器”按钮。 在窗体上单击鼠标右键，从弹出的菜单中选择“菜单编辑器”命令。 准备：打开cx1程序。 三、菜单编辑器窗口的组成 窗口分三部分：数据区、编辑区和菜单项显示区。 数据区 (1) 标题：输入所建立菜单的名字及菜单中每个菜单项的标题。运行后可以看到标题。 注意：如果想在菜单中加一条分隔线，只需输入一个减号（-）。 (2) 名称：用来输入菜单名及各菜单项的控制名（相当于Name属性），运行后可以看不到，用于编程。 (3) 索引：用来为控件数组设立下标。 快捷键：用来设置菜单项的快捷键。 协调位置：是一个列表框，用来确定菜单或菜单项是否出现或在什么位置出现。 0—None 菜单项不显示 1—Left 菜单项靠左显示 　　　0—Middle 菜单项居中显示 　　　0—Right 菜单项靠右显示 复选：当选择该项时，可以在相应的菜单项旁加上指定的记号（例如“√”） 有效：用来设置菜单项是是否能被激活。如果未选中，则相应的菜单项变灰。 可见：确定菜单项是否可见。 2．编辑区（对菜单进行编辑） （1）左、右箭头：由来产生或取消内缩符号（菜单的降级升级）。 单击一次右箭头，产生4个点，菜单层次降一级。 单击一次左箭头，删除4个点，菜单层次升一级。 （2）上、下箭头：用来移动菜单项的位置。 （3）下一个：移到下一个菜单项（可用回车替代）。 （4）插入：在当前位置插入新的菜单项。 （5）删除：删除当前菜单项。 3．菜单项显示区 显示所有菜单。并用内缩符号....表明菜单项的层次关系。 有关说明： （1）内缩符号由4个点组成，表明菜单项层次。一个内缩符号（4个点）代表一层，两个内缩符号表示两层，最多可设置六层。 （2）如果标题栏只输入一个“-”，表示产生一个分隔线，分隔线可以不输入名称Name。 （3）除分隔线外，所有菜单项都可接受Click事件。 （4）输入菜单项时，如果字母前加“”，则显示菜单时在该字母下加一条下划线，可通过ALT+带下划线的字母打开相应菜单。演示：在“打开”后加“(O)”。 例：设计一个具有算术运算（+、-、*、\） 1.设计用户界面 设第一个文本框的名称为num1,第二个文本框的名称 为num2,第三个标签的名称为result. 各菜单项的属性为下表： 分类 标题 名称 内缩符号 热键 主菜单项1 子菜单项1 子菜单项2 计算加、减 C1 无 无 加 减 Add Min 1 1 Ctrl+A Ctrl+B 主菜单项2 子菜单项1 子菜单项2 计算乘、除 C2 无 无 乘 除 Mul Div 1 1 Ctrl+C Ctrl+D 主菜单项2 子菜单项1 子菜单项2 清除与退出 C3 无 无 清除 退出 Clear quit 1 1 Ctrl+E Ctrl+F 编写程序代码 用户单击菜单项就可打开相应的事件。 加法事件： 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 弹出式菜单