《VB教程第11章教案资料》由会员分享，可在线阅读，更多相关《VB教程第11章教案资料（33页珍藏版）》请在金锄头文库上搜索。
1、第11章 菜单程序设计 第11章菜单程序设计 VisualBasic中的菜单 菜单编辑器 用菜单编辑器建立菜单 菜单项的增减 弹出式菜单 菜单项的控制 本章主要内容 退出 11 1VisualBasic中的菜单 应用程序通过菜单为用户提供一组命令菜单一般分为两种 下拉式菜单和弹出式菜单下拉式菜单下拉式菜单基本结构包括 顶层菜单 菜单项和子菜单 11 2菜单编辑器 知识点 设计菜单的工具 菜单编辑器可以有4种方式进入菜单编辑器 执行 工具 菜单中的 菜单编辑器 命令 使用热键Ctrl E 单击工具栏中的 菜单编辑器 按钮 在要建立菜单的窗体上单击鼠标右键 将弹出一个菜单 然后单击 菜单编辑器 命
2、令 11 2菜单编辑器 设计菜单的工具 菜单编辑器菜单编辑器分为上 中 下三部分 上半部分是数据区用来设置属性 中间部分是编辑区 用来对输入的菜单进行编辑 下半部分是菜单显示区 用来显示用户输入的菜单内容 11 2菜单编辑器 只有当某个窗体为活动时 才能打开菜单编辑器窗口 1 数据区用来输入或修改菜单项 设置属性 分为标题 名称 索引 快捷键 帮助上下文 协调位置 复选 有效 可见和显示窗口列表等栏目 2 编辑区有左右箭头 上下箭头 下一个 插入和删除7个按钮 用来对输入的菜单进行简单的编辑 菜单在数据区输入 在菜单项显示区显示 3 菜单项显示区位于菜单编辑器窗口的下部 输入的菜单在这里显示出
3、来 并通过内缩符号 表明菜单项的层次 条形光标所在的菜单项是 当前菜单项 除分隔线以外的所有菜单元素都能识别Click事件 例11 1编写程序 进行两个操作数的算术运算练习设计步骤如下 1 创建应用程序的用户界面和设置对象属性菜单栏向用户提供功能选择 包括运算数的位数 运算符类型 加 减 乘 和退出程序菜单设计各个菜单项名称 例11 1 11 3菜单编辑器 11 3菜单编辑器 各菜单项的属性 2 编写程序代码OptionExplicit 规定所有变量都要显式声明Dimsel1AsInteger sel2AsStringDimr1AsLongPrivateSubForm Load sel1 0
4、位数标记sel2 运算标记RandomizeEndSubPrivateSubMnu11 Click 单击 一位数 菜单项sel1 1 设置位数标记EndSubPrivateSubMnu12 Click 单击 二位数 菜单项sel1 10EndSub PrivateSubMnu13 Click 单击 三位数 菜单项sel1 100EndSubPrivateSubMnu21 Click 单击 加法 菜单项sel2 设置运算标记EndSubPrivateSubMnu22 Click 单击 减法 菜单项sel2 EndSubPrivateSubMnu23 Click 单击 乘法 菜单项sel2 End
5、Sub PrivateSubCommand1 Click 命题 按钮单击事件DimaAsLong bAsLongIfsel1 0Orsel2 ThenMsgBox 先选择运算数的位数和运算类型 ExitSubEndIfa sel1 Int 9 sel1 Rnd 根据指定位数 随机生成操作数b sel1 Int 9 sel1 Rnd Text1 Text Str a sel2 Str b 根据操作数及运算类型组成算式SelectCasesel2 根据运算类型 求运算结果r1Case r1 a bCase r1 a bCase r1 a bEndSelectText2 Text Text2 Set
6、FocusEndSub 菜单操作后Sel1指定位数 1一位数 10二位数 100三位数Sel2指定运算类型 加法 减法 乘法 PrivateSubCommand2 Click 答题 按钮单击事件Dimr2AsLongIfText2 Text ThenMsgBox 请输入答案 ExitSubEndIfr2 Val Text2 Text 读取用户的答案Ifr1 r2Then 判断答案MsgBox 正确 ElseMsgBox 错误 EndIfEndSubPrivateSubMnu30 Click 退出 菜单命令EndEndSub 11 4菜单项的控制 知识点 有效性控制及菜单项标记菜单项的有效性是通
7、过 有效 属性来控制的 设置方法为 菜单项名 Enable False使菜单项失效 菜单项名 Enable True使菜单项有效 菜单项标记 菜单项前面加一个 有两个作用 当前某个命令状态的 On 或 Off 表示当前选择的是哪个菜单项 菜单项标记通过菜单设计器窗口中的 复选 属性设置 该属性为True时 相应的菜单项前面有 标记 如果该属性为False时 相应的菜单项前面没有 标记 设计步骤如下 1 设计一个菜单 该菜单含有一个主菜单项和若干个子菜单项 当单击子菜单项时 分别显示十进制 八进制和十六进制数 并在相应的菜单项前面加上 标记 菜单设计各个菜单项名称 例11 2 例11 2菜单项前
8、加 标记练习 11 3菜单编辑器 各菜单项的属性 2 编写程序代码菜单项Octv的事件过程如下 PrivateSubOctv Click Answer Val txtBox Text Octv Checked TrueDec Checked FalseHexv Checked FalseClean Checked FalseQuit Checked FalseLabel5 Caption Oct Answer EndSub 另外两个子菜单项的事件过程 PrivateSubDec Click Answer Val txtBox Text Octv Checked FalseDec Checked
9、 TrueHexv Checked FalseClean Checked FalseQuit Checked FalseLabel4 Caption Format Answer EndSubPrivateSubHexv Click Answer Val txtBox Text Octv Checked FalseDec Checked FalseHexv Checked TrueClean Checked FalseQuit Checked FalseLabel6 Caption Hex Answer EndSub 子菜单项Clean的事件过程如下 PrivateSubClean Click
10、txtBox Text Octv Checked FalseDec Checked FalseHexv Checked FalseClean Checked TrueQuit Checked FalseLabel4 Caption Label5 Caption Label6 Caption EndSub最后一个子菜单项的事件过程如下 PrivateSubQuit Click EndEndSub 11 4菜单项的控制 键盘控制用键盘选择菜单项通常有两种方法 即热键和访问键 AccessKey 热键和访问键都是在设计菜单时直接指定 为了设置访问键必须在准备加下划线的字母的前面加上一个 在设置访问键
11、时 应注意避免重复 用热键可直接执行菜单命令 不必一级一级下拉菜单执行 执行速度较快 访问键就是菜单项中加了下划线的字母 只要按Alt和加了下划线的字母就可选择相应的菜单 必须一级一级地进行选择 任何控件可在Caption属性中加 设置访问键 也可在程序代码中设置 访问键只能是一个字符 而且这个字符必须是键盘上的某个键 11 4菜单项的增减 菜单项的增减通过控件数组来实现 一个控件数组含有若干个控件 这些控件的名称相同 但其中的每个元素都可以有自己的属性 与普通数组一样 通过下标 Index 访问控件数组中的元素 控件数组可以在运行时建立 设计步骤如下 1 菜单项的增减通过控件数组来实现 例1
12、1 3 例11 3编写程序 实现菜单项的增减操作 各菜单项的属性 2 编写程序代码在窗体层定义如下变量 DimMenucounterAsInteger单击AddAp时增加新菜单项 编写如下的事件过程PrivateSubAddAp Click msg Enter Temp InputBox msg AddApplication Menucounter Menucounter 1LoadAppName Menucounter AppName Menucounter Caption Temp AppName Menucounter Visible TrueEndSub 单击子菜单项DeleteAp时
13、产生的事件过程如下 PrivateSubDelAp Click DimNAsInteger IAsIntegermsg Enternumbertodelete N InputBox msg DeleteApplication IfN MenucounterOrN 1ThenMsgBox 超出范围 ExitSubEndIfForI NToMenucounter 1AppName I Caption AppName I 1 CaptionNextIUnloadAppName Menucounter Menucounter Menucounter 1EndSubAppName的Click事件过程 P
14、rivateSubAppName Click IndexAsInteger x Shell AppName Menucounter Caption 1 EndSub 11 6弹出式菜单 弹出式菜单又称为快捷菜单 可以根据右击鼠标时的位置弹出不同的菜单 使用VB提供的菜单编辑器 把某个菜单设置成隐藏 创建快捷菜单的步骤如下 1 使用菜单编辑器设计菜单 2 设置顶层菜单项为不可见 即不选中菜单编辑器里的 可见 选项或在属性窗口中设定Visible属性为False 3 编写与弹出式菜单相关联的MouseUp 释放鼠标 事件过程 格式为 对象 PopupMenu菜单名 位置常数 横坐标 纵坐标 例11
15、 4在例11 1的基础上 把 位数 菜单改为快捷菜单 1 打开例11 1的应用程序 选定窗体 然后在菜单编辑器中将 位数 菜单标题的 可见 框中的 取消 即不选中 2 增加以下的MouseUp事件过程代码 PrivateSubForm MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2Then 检查是否右击 击左键为1PopupMenumnu10EndIfEndSub程序运行时 右击窗体空白处 即会弹出快捷菜单 如下页图所示 例11 4 弹出式菜单 11 7工具栏和状态栏 补充 分别通过ActiveX控件T
16、oolBar和StatusBar来实现11 7 1ActiveX控件简介VB中使用的控件有三类 标准控件 ActiveX控件和可插入对象 如Word文档 Excel工作表等 可当作控件使用 ActiveX控件是一段可重复使用的程序代码和数据 由ActiveX技术创建的 可以作为VB工具箱的扩充部分 ActiveX控件以单独的文件存在 ocx 11 7 2工具栏 ToolBar 工具栏为用户带来比用菜单更为快速的操作为窗体添加工具栏 应使用工具条 ToolBar 控件和图像控件列表 ImageList 控件 不是标准控件 创建工具栏的大致步骤 选择工程 部件 控件 MicrosoftWindowsCommonControls6 0 1 添加ToolBar控件和ImageList控件 2 用ImageList控件保存要使用的图形 3 创建ToolBar控件 并将ToolBar控件与ImageList控件相关联 创建Button对象 4 编写Button的Click事件过程 单击工具栏控件时触发Click事件 单击工具栏上按钮时触发ButtonClick事件 并返回一个Button参数 表明
