VB语言第10章教案资料.ppt

第10章 菜单及对话框 第10章菜单及对话框 菜单设计 键盘与鼠标事件 对话框通用 自定义 本章主要内容 退出 窗体和大多数控件都能响应键盘和鼠标事件10 1 1键盘事件有三种事件处理键盘操作1 KeyPress事件2 KeyDown事件 用户按下键盘上某个键时触发此事件3 KeyUp事件 用户按下键盘上某个键后释放时触发此事件 10 1键盘与鼠标事件 Click DblClick MouseMove MouseDown和MouseUp事件当移动鼠标时发生MouseMove事件当按下鼠标任意键时发生MouseDown事件 放开鼠标键时发生MouseUp事件后三种事件可以区分鼠标的左 右 中键与Shift Ctrl Alt键PrivateSub对象名 鼠标事件 ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 说明 1 Button参数表示哪个鼠标键被按下或释放 用0 1 2位分别表示鼠标的左 右 中键 用1或0表示被按下或释放 2 Shift参数表示当鼠标键被按下或释放时 Shift Ctrl Alt键的按下或释放状态 用0 1 2位表示Shift Ctrl Alt键 3 X Y表示鼠标指针的当前坐标位置 10 1 2鼠标事件 MouseMove MouseDown或MouseUp 当单击鼠标左键时把按钮的位置移动到鼠标指针的位置 单击鼠标右键时把按钮的位置移动到窗体的左上角位置 即坐标原点 以下程序将MouseDown事件与Move方法结合起来使用 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 1Then 单击鼠标左键时Command1 MoveX Y 移动到鼠标指针的位置ElseCommand1 Move0 0 移动到窗体的左上角EndIfEndSub 例10 1实现命令按钮位置的移动 例10 1 10 2菜单设计 应用程序通过菜单为用户提供一组命令菜单一般分为两种 下拉式菜单和弹出式菜单10 2 1下拉式菜单1 下拉式菜单的结构 下拉式菜单基本结构包括 顶层菜单 菜单项和子菜单 例10 1c 10 2 2菜单编辑器 设计菜单的工具 菜单编辑器菜单编辑器分为上 下两部分 上半部分用来设置属性 下半部分是菜单显示区 用来显示用户输入的菜单内容 10 2 3菜单的Click事件 除分隔线以外的所有菜单元素都能识别Click事件 例10 5编一程序 进行两个操作数的算术运算练习 设计步骤如下 1 创建应用程序的用户界面和设置对象属性菜单栏向用户提供功能选择 包括运算数的位数 运算符类型 加 减 乘 和退出程序菜单设计各个菜单项名称 例10 5 2 编写程序代码OptionExplicit 规定所有变量都要显式声明 见10 9 1节Dimsel1AsInteger sel2AsStringDimr1AsLongPrivateSubForm Load sel1 0 位数标记sel2 运算标记RandomizeEndSubPrivateSubMnu11 Click 单击 一位数 菜单项sel1 1 设置位数标记EndSubPrivateSubMnu12 Click 单击 二位数 菜单项sel1 10EndSub PrivateSubMnu13 Click 单击 三位数 菜单项sel1 100EndSubPrivateSubMnu21 Click 单击 加法 菜单项sel2 设置运算标记EndSubPrivateSubMnu22 Click 单击 减法 菜单项sel2 EndSubPrivateSubMnu23 Click 单击 乘法 菜单项sel2 EndSub 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 SetFocusEndSub 菜单操作后Sel1指定位数 1一位数 10二位数 100三位数Sel2指定运算类型 加法 减法 乘法 PrivateSubCommand2 Click 答题 按钮单击事件Dimr2AsLongIfText2 Text ThenMsgBox 请输入答案 ExitSubEndIfr2 Val Text2 Text 读取用户的答案Ifr1 r2Then 判断答案MsgBox 正确 ElseMsgBox 错误 EndIfEndSubPrivateSubMnu30 Click 退出 菜单命令EndEndSub 10 2 5弹出式菜单 弹出式菜单又称为快捷菜单 可以根据右击鼠标时的位置弹出不同的菜单 使用VB提供的菜单编辑器 把某个菜单设置成隐藏 创建快捷菜单的步骤如下 1 使用菜单编辑器设计菜单 2 设置顶层菜单项为不可见 即不选中菜单编辑器里的 可见 选项或在属性窗口中设定Visible属性为False 3 编写与弹出式菜单相关联的MouseUp 释放鼠标 事件过程 格式为 对象 PopupMenu菜单名 位置常数 横坐标 纵坐标 例10 6在例10 5的基础上 把 位数 菜单改为快捷菜单 1 打开例10 8的应用程序 选定窗体 然后在菜单编辑器中将 位数 菜单标题的 可见 框中的 取消 即不选中 2 增加以下的MouseUp事件过程代码 PrivateSubForm MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2Then 检查是否右击 击左键为1 PopupMenumnu10 EndIf EndSub程序运行时 右击窗体空白处 即会弹出快捷菜单 如图10 12所示 例10 6 例10 5A 弹出式菜单 10 3对话框 对话框 DialogBox 是应用程序与用户进行交互的主要途径 三种对话框 1 预定义对话框使用函数InputBox和MsgBox来实现 2 通用对话框通用对话框是一种ActiveX控件 在使用之前 应选择 工程 菜单中的 部件 命令先将其添加到工具箱中 选中 MicrosoftCommonDialogControl6 0 利用通用对话框能够创建下列六种标准对话框 指定相应的参数 P233 打开 Open 另存为 SaveAs 颜色 Color 字体 Font 打印机 Printer 帮助 Help 3 用户自定义对话框建立一个窗体 把窗体设置成对话框特性 没有控制菜单框 最大化及最小化按钮 不能改变其大小 见表10 3 在窗体上根据需要放置控件 附录使用WebBrowser控件制作一个简易的Web浏览器 在 部件 对话框的 控件 选项卡中选上 MicrosoftInternetControls 把该控件添加到VB工具栏中 设计时 在窗体上添加WebBrowse控件和框架Frame控件 在Frame控件上添加一个标签Label1 显示文字 地址 一个文本框Text1 用于输入URL地址 和一个命令按钮Command1 转到 WebBrowser控件 框架上放置3种控件 Web浏览程序 PrivateSubCommand1 Click 转到 按钮IfText1 Text ThenWebBrowser1 NavigateText1 TextEndIfEnd