vb实验.docVIP

5.4 菜单、对话框和多重窗体设计 教学目标： 1．掌握使用菜单编辑器在应用程序中创建下拉菜单和快捷菜单。 2．了解对话框的分类及作用。 3．熟练掌握如何建立多重窗体应用程序。 主要内容： 5.4.1 菜单和对话框程序设计 例5-15 设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕后效果如图所示。 图5.15 菜单效果图 Vb菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非常方便的建立菜单，本例中示范的是下拉式菜单，设计步骤如下： （1）从“工具”菜单上，选取“菜单编辑器”，设置菜单如下： 图5.16 “菜单编辑器”的对话框 说明： 标题和名称一定要给出； 用于调整菜单项的级别，按钮用于移动菜单项位置。 （2）属性设置如下： 表5.10 菜单属性设置 标题 名称 上级菜单 热键 快捷键 无 文件 mnuFile 无 F 新建 mnuFileNew 文件 N Ctrl＋N Ctrl＋O 打开 mnuFileOpen 文件 O 保存 mnuFileSave 文件 S Ctrl＋S － mnuFileBar 文件 无 无 退出 mnuFileQuit 文件 Q Ctrl＋Q 编辑 mnuEdit 无 E 无 剪切 mnuEditCut 编辑 无 Ctrl＋X 复制 mnuEditCopy 编辑 无 Ctrl＋C 粘贴 mnuEditPaste 编辑 无 Ctrl＋V 字体 mnuEditFont 编辑 无 Ctrl＋F 黑体 Font1 字体 无 无 宋体 Font2 字体 无 无 楷体 Font3 字体 无 无 说明： 连字符（-）作为标题属性的菜单控件，将以一个分隔条出现。分隔条可把菜单项划分成若干个逻辑组。 “热键”是指与ALT键同时按下的键，在想要指定为访问键的字符前加一个符号。在菜单中，该字符会自动加上一条下划线。 （3）编写代码 菜单设置好后，需要给每个需要完成某些功能的菜单项编写对应的代码。给上例任务中的窗体内添加一个文本框Text1，Text1的属性如表所示。 表5.11 Text1属性设置 对象名 属性 属性值 Text Name Text1 Text 清空 MultiLine True ScrollBar 3-both 单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，下面为“黑体”子菜单编写代码如下： 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 运行时可通过字体菜单修改文本中输入文字的字体。运行的各种结果如图所示。 图5.17 菜单示例 例5-16在第一个任务的基础上增加一个弹出式菜单，包含“剪切”、“复制”和“粘贴”功能，右击窗体时弹出该快捷菜单。 操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”，该标题和名称可任意设定，因为它在快捷菜单弹出时不显示。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）在VB中，需要使用PopupMenu方法来显示弹出式菜单。其语法格式如下： [对象].PopupMenu 菜单名,标志,X,Y 其中菜单名是必须的，被指定的菜单必须至少包含一个子菜单；标志参数及X、Y的值是定义弹出式菜单的弹出位置。 因此需要在窗体的MouseUp事件里编写对应的代码。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码如下： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 若单击鼠标右键 PopupMenu Edit 弹出Edit快捷菜单 End If End Sub 图5.18 弹出式菜单示例 例5-17