第12章_菜单与对话框

1 第12章菜单与对话框 本章的学习要点用菜单编辑器建立菜单菜单项的控制 1 有效性控制 2 菜单项标记 3 键盘选择菜单项的增减文件对话框其它对话框 颜色 字体 打印 对话框 2 12 1 1下拉式菜单 下拉式菜单的主菜单显示在菜单条里 VB中包含了13个主菜单 如图12 1所示 当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜单 例如VB中单击 文件 主菜单或利用 Alt F 键的组合可以弹出文件的下拉子菜单 在某些菜单项中还包含有分隔条 利用分隔条可将不同功能菜单项进行分隔 菜单项还可包含快捷键和热键 利用快捷键和热键的正确使用可以直接利用键盘调用对应的功能 提高操作速度 3 下拉式菜单 菜单显示在窗体中 因此菜单的设置也和其他控件一样在窗体内进行 VB为用户提供了菜单编辑器 打开菜单编辑器的方法有如下几种 1 在VB中单击 工具 菜单中的 菜单编辑器 子菜单 2 利用 Ctrl E 键的组合 3 在需要建立菜单的窗体上右击 在弹出的菜单中选择 菜单编辑器 命令 4 单击工具栏中的 菜单编辑器 快捷按钮 用上述任一方法打开的 菜单编辑器 的对话框 如图12 2所示 4 下拉式菜单 5 下拉式菜单 利用菜单编辑器 可以对窗体中所需的菜单各项属性进行设置 菜单编辑器具体可分为3个部分 上部为属性设置区 用来对菜单项进行标题 名称等的属性设置 中部为编辑区 包含7个按钮 用来对输入的菜单项进行简单的编辑 下部为菜单项显示区 前面所编辑的菜单项在此处显示 6 下拉式菜单 1 属性设置区 1 标题 2 名称 3 索引 4 快捷键 5 复选 6 有效 7 可见 8 帮助上下文 9 协调位置 7 下拉式菜单 2 编辑区 1 用于调整菜单项的级别 单击一次按钮 则产生一个内缩符号 表示为上一级的子菜单 单击一次 删除一个内缩符号 则该菜单项被提高一个级别 菜单项的级别最多可以设置6级 2 通过单击或按钮可将当前被选择的菜单项在同级里向上或向下移动一个位置 8 下拉式菜单 2 编辑区 3 下一个 介绍当前菜单项的编辑进入下一菜单项的编辑 4 插入 在当前菜单项的前面插入一个空白菜单项 5 删除 删除当前菜单项 9 下拉式菜单 3 菜单项显示区该区域用于显示输入的菜单项 编辑好的菜单项可通过内缩符号表明其层次 如图12 3所示 编辑为主菜单 其下有4个子菜单 而字体子菜单下还有3个二级菜单 10 下拉式菜单 例12 1设计一个包含菜单的窗体 其中主菜单为文件和编辑菜单 文件菜单包含新建 打开 保存 退出四个下拉菜单 编辑菜单包含剪切 复制 粘贴和字体四个下拉菜单 字体菜单又包含黑体 宋体 楷书三个下拉菜单 具体设计完毕后效果如图12 4所示 11 下拉式菜单 1 建立菜单 12 下拉式菜单 2 编写代码菜单设置好后 需要给每个需要完成某些功能的菜单项编写对应的代码 给例12 1的窗体内添加一个文本框Text1 Text1的属性如表12 2所示 13 下拉式菜单 单击 编辑 菜单下的 字体 子菜单 选择 黑体 弹出对应的 单击 事件代码编辑窗口 下面为 黑体 子菜单编写代码如下 PrivateSubFont1 Click Text1 Font 黑体 EndSub此处黑体菜单的名称即为在设计时输入的名称 Font1 按照上述步骤依次选择 宋体 楷体 子菜单 完成相应的代码编写 具体代码如下 PrivateSubFont2 Click Text1 Font 宋体 EndSubPrivateSubFont3 Click Text1 Font 楷体 Gb2312 EndSub 14 下拉式菜单 运行时可通过字体菜单修改文本中输入文字的字体 运行的各种结果如图12 5所示 15 下拉式菜单 例12 2设计一个具有加 减 乘 除 清除和退出功能的程序 思路 在第4章中曾利用单选按钮完成过该例部分功能 此处利用菜单来完成全部功能 该例的设计界面如图12 6所示 16 下拉式菜单 属性设置 17 下拉式菜单 18 下拉式菜单 在用户界面设计状态单击某一菜单项 编辑窗口出现该菜单Click事件过程的代码 可在其中输入要执行的代码 各菜单项对应的代码如下 PrivateSubadd Click 加法 x Val Text1 Text Val Text2 Text Text3 Text Str x EndSubPrivateSubclear Click 清除 Text1 Text2 Text3 Text1 SetFocusEndSub 19 下拉式菜单 PrivateSubdiv Click 除法 IfVal Text2 Text 0Then 除数是否为0的判断 x Val Text1 Text Val Text2 Text Text3 Text Str x ElseMsgBox 除数不能为0 请重新输入 Text2 Text Text2 SetFocusEndIfEndSub 20 下拉式菜单 PrivateSubexit Click 退出 EndEndSubPrivateSubmul Click 乘法 x Val Text1 Text Val Text2 Text Text3 Text Str x EndSubPrivateSubsub Click 减法 x Val Text1 Text Val Text2 Text Text3 Text Str x 21 弹出式菜单设计 右击窗体时弹出的菜单为弹出式菜单 一般集合了很多常用的操作 弹出式菜单没有主菜单名 只有在使用时才会在窗体上浮动显示 例如在VB的设计窗体中单击右键 弹出的菜单如图12 8所示 弹出式菜单设计依然要使用菜单编辑器 只需在设计时将菜单的可见属性设置为False即可 22 弹出式菜单设计 例12 3在例12 1的基础上增加一个快捷编辑菜单 包含 剪切 复制 和 粘贴 功能 右击窗体时弹出该快捷菜单 操作步骤 1 在菜单编辑器里新增一个菜单 保证该菜单为顶层菜单项 即无缩进符号 标题设定为 Edit 该标题和名称可任意设定 因为它在快捷菜单弹出时不显示 2 将 Edit 菜单的可见属性设置为False 3 单击 下一个 命令按钮 标题文本框中输入 剪切 编辑对应的名称 单击按钮 将 剪切 菜单设置为 Edit 菜单的下一级菜单 23 弹出式菜单设计 4 参照步骤3完成 复制 和 粘贴 菜单的设置 5 在VB中 需要使用PopupMenu方法来显示弹出式菜单 其语法格式如下 对象 PopupMenu菜单名 标志 X Y其中对象为可选项 默认为Form对象 菜单名是必须的 被指定的菜单必须至少包含一个子菜单 标志参数及X Y的值的作用是详细定义弹出式菜单的弹出位置 当标志等于0时 为系统的默认状态 X放映的是弹出菜单的左边界 当标志等于4时 X放映的是弹出菜单的中心位置 当标志等于8时 X放映的是弹出菜单的右边界 24 弹出式菜单设计 因此需要在窗体的MouseUp事件里编写对应的代码 注意只有在窗体上单击鼠标右键时才会弹出快捷菜单 具体代码如下 PrivateSubForm MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton 2Then 若单击鼠标右键 PopupMenuEdit 弹出edit快捷菜单 EndIfEndSub 25 通用对话框 VB6 0为用户提供了一组基于Windows标准的对话框 称为通用对话框 即CommonDialog 包括 打开 对话框 另存为 对话框 颜色 对话框 字体 对话框 打印 对话框以及 帮助 对话框 通用对话框不是标准控件 使用时必须先将该控件添加到工具箱里 将CommonDialog添加到工具箱里的步骤如下 1 选择 工程 下拉菜单中的 部件 子菜单 弹出 部件 对话框 2 在 部件 对话框列表中选择 MicrosoftCommonDialogControl6 0 项目 确保其前方的复选框内出现 3 单击确定按钮 添加完成后工具箱里出现CommonDialog的图标 具体操作如图12 10所示 26 通用对话框 通用对话框常用的属性有名称属性和Action属性等 系统默认的通用对话框名称为CommonDialog1 CommonDialog2 Action属性决定程序打开什么类型的对话框 具体Action属性 含义及对应的方法 27 通用对话框 把CommonDialog控件添加到窗体后 就意味着上述各种标准对话框可以被使用了 当某一时刻需要用到某个对话框时 必须通过设置Action属性或VB6 0的方法才能使之显示在屏幕上 例如要显示 打开 对话框 在程序中利用设置Action属性则对应语句如下 CommonDialog1 Action 1也可在程序中用控件的方法完成对话框的显示 CommonDialog1 ShowSave 28 通用对话框 1文件对话框文件对话框包括 打开 和 另存为 对话框 使用 打开 另存为 对话框可以设置文件对话框的属性 文件对话框属性页中的属性和含义如表12 5所示 例如 CommonDialog1 Fileter AllFiles 位图 bmp bmp 设置对话框的过滤器CommonDialog2 DialogTitle 选择文件 设置对话框的标题 29 通用对话框 例12 4将例12 1里 新建 和 打开 菜单功能补充完整 注意 先将通用对话框添加到工具箱里 再将CommonDialog控件添加到窗体上 在窗体上单击各菜单项 完成下述代码 PrivateSubmnuFileNew Click 新建菜单CommonDialog1 ShowSaveText1 Text Form1 Caption 新建文件 EndSub 30 通用对话框 PrivateSubmnuFileOpen Click 打开菜单DimFilenameAsString mAsStringFilename CommonDialog1 ShowOpenCommonDialog1 Filter Text txt txt Filename CommonDialog1 FilenameIfFilename ThenMsgBox nofileopen vbExclamation vbOKOnly System ElseMsgBox youopen Filename vbInformation System EndIfOpenCommonDialog1 FilenameForInputAs 1 将文件打开Input 1 m 将文件内容读入到文本框里Text1 Text mClose 1EndSub 31 通用对话框 PrivateSubmnuFileSave Click 保存菜单CommonDialog1 Action 2OpenCommonDialog1 FilenameForOutputAs 1Print 1 Text1 TextClose 1EndSub 32 通用对话框 某次单击 新建 菜单时弹出的对话框和Windows默认风格一致 33 其他对话框 1 颜色对话框使用 颜色 对话框可设置颜色属性 对应的Windows颜色对话框如图12 12所示 其属性和含义如表12 6所示 34 其他对话框 例如 Commondialog1 ShowcolorForm1 BackColor CommonDialog1 Color表示将用户在 颜色 对话框中设置的颜色作为窗体背景色 35 其他对话框 2 字体对话框使用 字体 对话框可设置字体属性 其属性和含义如表12 7所示 36 其他对话框 例如 CommonDialog1 ShowFontText1 FontName CommonDialog1 Filename表示将用户在 字体 对话框中设置的字体作为文本框的字体 37 其他对话框 例12 5利用颜色对话框和字体对话框设置文本框中文字的颜色和字体 在窗体上放置一个文本框 两个命令按钮和一个通用对话框 控件属性如表 38 其他对话框 39 其他对话框 PrivateSubCommand1 Click CommonDialog1 ShowColor 显示颜色对话框 Text1 ForeColor CommonDialog1 Color 颜色设置EndSubPrivateSubCommand2 Click CommonDialog1 ShowFont 显示字体对话框 T