新Visual Basic程序设计 第2版 普通高等教育“十一五”国家级规划教材 教学课件 吴昌平 第10章.pptVIP

第 10 章 高级界面设计 本章中主要介绍菜单、对话框、多文档界面、工具栏等一些与界面设计有关的知识。 10.1 菜 单 在VB中，利用系统提供的工具可以非常方便地建立下拉菜单和弹出式菜单。 10.1.1 下拉菜单 在关闭状态下，下拉菜单作为菜单栏位于窗口的标题栏下面，当单击其中某一项时，下拉出其相应的子菜单。如图10-1所示。 菜单标题也就是基本菜单项，水平排列在窗体标题栏的下面。 子菜单由若干菜单项组成。菜单项可以包括菜单命令、分隔条和子菜单标题。 如果某一菜单项还有子菜单，也即该菜单项是一个子菜单标题，它的后面将会自动添加一个“?”。 VB中的菜单通过菜单编辑器，即菜单设计窗口建立。将要建立下拉菜单的窗体设为活动窗体后，可以通过4种方法进入菜单编辑器。 （1）选择“工具”菜单中的“菜单编辑器”命令。 （2）使用热键Ctrl+E。 （3）单击工具栏中的“菜单编辑器”按钮。 （4）在要建立菜单的窗体上单击鼠标右键，在弹出的快捷菜单中选择“菜单编辑器”命令。 通过以上任一方法，均可调出“菜单编辑器”对话框。 【例10.1】菜单设计。建立一个图10-3所示的菜单，用户可以通过选择菜单中的菜单项改变文本框中内容的外观。 设计步骤如下。 （1）建立控件 在窗体上添加一个文本框，将它的Text属性置为空。 （2）设计菜单 在窗体设计状态下选择“工具”菜单下的“菜单编辑器”命令，调出“菜单编辑器”对话框。在菜单设计窗口中，按表10-1设计菜单项。 （3）把代码连接到菜单上 在窗体窗口单击菜单标题，然后在下拉菜单中选择要连接代码的菜单项，在屏幕上就会出现代码窗口，并自动给出事件过程的头尾语句。只要在头尾语句间输入代码即可。 程序代码如下： Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub er_Click() Text1.FontSize = 20 End Sub Private Sub ht_Click() Text1.FontName = 黑体 End Sub Private Sub lsh_Click() Text1.FontName = 隶书 End Sub Private Sub quit_Click() End End Sub Private Sub sh_Click() Text1.FontSize = 12 End Sub Private Sub st_Click() Text1.FontName = 宋体 End Sub Private Sub xhx_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub 10.1.2 弹出式菜单 弹出式菜单（快捷菜单）不需要在窗口顶部下拉打开，而是通过单击鼠标右键在窗体的任意位置打开，因而使用方便，具有较大的灵活性。 建立弹出式菜单通常有两步：首先用菜单编辑器中建立菜单，然后用PopupMenu方法弹出显示。第一步的操作与前面介绍的基本相同，唯一的区别是，如果不想在窗体顶部显示该菜单，就应把菜单名（即主菜单项）的“可见”属性设置为False（子菜单项不要设置为False）。 PopupMenu方法用来显示弹出式菜单，其格式为 [对象.] PopupMenu 菜单名[,Flags[,x[,y[,BoldCommand]]]] 【例10.2】将例10.1中的“字形”菜单的内容作为弹出式菜单的内容。 只需在代码窗口添加如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu zx, 2 End If End Sub 运行程序，用鼠标右键单击窗体，即可弹出“字形”菜单的菜单内容。如果不想在窗体顶部显示“