第10章 设计多功能用户界面w 菜单的组成元素w 10.1 设计菜单 w 10.2 设计工具栏 w 10.3 多文档界面 w 10.4 使用应用程序向导 结束菜单的组成元素图10.1 菜单的组成元素 返回首页10.1 设计菜单w 10.1.1 菜单编辑器 w 10.1.2 利用菜单编辑器创建菜单栏 w 10.1.3 运行时修改菜单项 w 10.1.4 动态菜单 w 10.1.5 弹出菜单 返回首页10.1.1 菜单编辑器 （1）VB提供的“菜单编辑器”是一种用来建立菜单栏 的工具，利用它可以非常方便、快捷地在应用程序 的窗体上建立菜单。打开“菜单编辑器”对话框的 方法有以下几种：（1）选择【工具】菜单中的【菜单编辑器】命令；（2）单击标准工具栏中的“菜单编辑器”按纽；（3）让窗体显示在开发环境中，按Ctrl+E键；（4）右击窗体空白处，在快捷菜单中选择【菜单编 辑器】命令。10.1.1 菜单编辑器 （2）打开【菜单编辑器】对话框后，其界面如图10.2所 示。图10.2 【菜单编辑器】对话框 10.1.1 菜单编辑器 （3）【菜单编辑器】对话框窗口分为上下两部分。上部用来设 置属性，下部则用来显示用户设置的菜单和菜单项。菜单编 辑器中各项内容和作用见教材表10.1。 菜单列表框中的每一行都是一个菜单控件，分属不同的等 级：菜单标题、菜单项、子菜单标题和子菜单项。菜单控件 在列表框中的位置决定了该控件的等级：（1）位于列表框中左侧平齐的菜单控件作为菜单标题显示 在菜单栏中。（2）列表框中被缩进去的菜单项为下拉式菜单选项。（3）一个缩进过的菜单控件，如果后面还紧跟着再次缩进 的一些菜单控件，它就成为一个子菜单的标题。返回首页返回本节10.1.2 利用菜单编辑器创建菜单栏(1)1. 创建菜单项（1）在标题栏输入该菜单项的文本。（2）在名称栏输入程序中要引用该菜单项的名称 （类似于控件的Name）。（3）单击【下一个】按钮或【插入】按钮，建立 下一个菜单项。（4）重复（1）（2）（3）步骤，将菜单项全部建 立完毕后，单击【确定】按钮，关闭菜单编辑器。10.1.2 利用菜单编辑器创建菜单栏(2)在菜单列表框中，级联菜单项标题前比上一 级菜单项多“”标志。 2. 创建分隔线当一个菜单标题上放置的菜单项较多时，为了 直观，可以使用水平线将菜单项分组。建立菜单 分隔线的步骤与建立菜单项的步骤相似，惟一的 区别就是在菜单编辑器的【标题】框中输入一个 连字符“-”。10.1.2 利用菜单编辑器创建菜单栏(3)3. 创建热键与快捷键建立热键（访问键）的方法与命令按钮相同， 即在菜单标题的某个字符前加上一个&符号，在菜 单中这一字符会自动加上下划线，表示该字符是 一个热键字符。建立快捷键的方法是打开菜单编辑器中快捷键 （Shortcut）下拉式式列表框并选择一个组合键 选项，则菜单项标题的右边会显示快捷键名称。说明：热键指使用Alt键+字符键来打开菜单。10.1.2 利用菜单编辑器创建菜单栏(4)【例10.1】创建一个简易文本编辑器。要 求含有表10.2所示的菜单栏。表10.2 文本编辑器菜单结构 10.1.2 利用菜单编辑器创建菜单栏(5)设计方法：在窗体上放置一个通用对话框和 一个文本框,然后按表10.2设计菜单。菜单设计完成后，需要为菜单项编写事件过 程。本例中我们对“打开”、“保存”、“退出 ”菜单项编程。程序中通过对话框打开所选定的 文本文件，然后将文件内容传送到文本框。 保存时，先在文本框中输入 内容，然后单击“保存”菜 单项，弹出保存对话框，逐 步操作即可。运行界面如图 10.3所示。代码详见教材。 返回首页返回本节10.1.3 运行时修改菜单项（1）1. 使菜单命令无效所有的菜单项（也叫菜单控件）都具有Enabled属性。 当Enabled设为False时，菜单命令无效使它不响应操作。 此时，快捷键的访问也无效。一个无效的菜单控件会变暗 。例如，若要使例10.1中“编辑”菜单下的“粘贴”菜单 项无效，可用下列语句： EditPaste.Enabled = False菜单标题无效将使得整个菜单无效，也就不能访问该菜 单标题中的任何菜单项。例如，语句 EditMenu.Enabled = False 可使例 10.1中的“编辑”菜单无效。10.1.3 运行时修改菜单项（2）2. 使菜单控件不可见在菜单编辑器中，通过选中或不选【可见】复选 框，可以设置菜单控件的Visible属性的初值。在运行时，要使一个菜单控件可见或不可见，可 以从代码中设置其Visible属性。例如： 使菜单控件数组0号元素可见mnuFileArray(0).Visible = True使菜单控件数组0号元素不可见mnuFileArray(0).Visible = False10.1.3 运行时修改菜单项（3）3. 在菜单上使用复选标记可以用Checked属性来创建复选标志（）。设 计时通过选取菜单编辑器中的【复选】（Checked ）复选框来设置菜单控件Checked属性的初始值。 在运行时要在一个菜单控件上增加或删除复选标 志，可以从代码中设置它的Cheked属性。例如： 将菜单项当前的复选状态取反：若有复选标志则删除, 若无则添加mnuStatus.Checked = Not mnuStatus.Checked 返回首页返回本节10.1.4 动态菜单（1）在应用程序运行过程当中，可以根据需要动态地 增加或减少一些菜单项。这些可以动态增减的菜 单项组合就是动态菜单。建立动态菜单必须使用 菜单控件数组。建立菜单控件数组的方法是：在【菜单编辑器】 对话框中加入一个菜单项，将其索引（Index）项 属性设置为0。然后可以加入名称相同，Index值 有序相连的菜单项。也可以只有一个Index为0的 菜单项，在运行时通过菜单项控件数组名和索引 值，使用Load语句加入新的菜单项；使用Unload 语句删除菜单项。10.1.4 动态菜单（2）Load和Unload语句格式如下： Load 菜单控件数组名(Index)Unload 菜单控件数组名(Index)【例10.2】使例10.1中的文件菜单能保留最近打开过的 文件清单。运行界面如图10.4所示。设计方法如下：以例10.1为基础，在文件菜单的“退出”菜单项前面插 入一个菜单项MenuAdd，设索引属性为0，使MenuAdd成为 菜单数组，设Visible属性为False，再插入一个名为bar3 的分隔线，Visible属性亦为False。在菜单的最后加入名 称为MenuDel，标题为“删除菜单项”的菜单。在“打开 ”和“另存为”后各插入一个分隔线bar1和bar2。10.1.4 动态菜单（3）图10.4 例10.2运行界面 10.1.4 动态菜单（4）假定要保留的文件清单限定为5个文件名，用 Load方法向MenuAdd()数组加入动态菜单成员，代 码如下： I = I + 1 记录文件打开的数量 If I 0 ThenIf I 5 Then I = 5 若文件数5，设为5Unload MenuAdd(I) 删除菜单项I = I - 1End If若菜单项已全部删除,隐藏分隔线If I = 0 Then bar3.Visible = False End Sub返回首页返回本节10.1.5 弹出菜单（1）10.1.5 弹出菜单右击鼠标时弹出的快捷菜单即弹出菜单，也叫浮 动菜单。弹出菜单的设计方法是：先用菜单编辑器设计一 个普通菜单，然后用VB提供的PopupMenu方法来显 示弹出菜单。该方法的使用形式是： 对象.PopupMenu 菜单名，标志，X，Y其中：菜单名是必需的，其他参数是可选的。X 、Y参数指定弹出菜单显示的位置。标志参数用于 进一步定义弹出菜单的位置和性能，其取值参见表 10.3。 10.1.5 弹出菜单（2）说明： 选择位置值和性能值时，将其用 Or 运算符进行组 合。PopupMenu方法应结合MouseDown或MouseUp事件过程来 使用。该方法也可用于选定一个子菜单名。10.1.5 弹出菜单（3）如果不希望弹出菜单的菜单项出现在一般菜单栏 里，只需将菜单的Visible属性设置为False，即在 菜单编辑器内不选中【可见】复选框。当使用 PopupMenu方法时，它可以忽略Visible的设置。例如，在例10.2中要加入有关“编辑”这部分菜单 的弹出菜单功能，用鼠标右击Text1时能弹出 EditMenu菜单中的菜单项，并以鼠标指针坐标X为 弹出菜单的中心，可使用如下代码： Private Sub Text1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single)If Button = 2 then PopupMenu EditMenu, 4, X, Y End Sub10.1.5 弹出菜单（4）这里，Button=2 表示按下鼠标右键，EditMenu 为编辑菜单名，4指定弹出菜单的位置。运行界面 如图10.5所示。图10.5 弹出菜单的运行界面 返回首页返回本节10.2 设计工具栏w 概述w 10.2.1 在ImageList控件中添加图像w 10.2.2 在Toolbar控件中添加按钮 w 10.2.3 为工具栏按钮编写事件过程 w 10.2.4 菜单与工具栏综合应用举例 返回首页概述 （1）制作工具栏常用的方法是通过组合使用 Toolbar和ImageList控件来建立，二者都是 ActiveX控件，必须先将其添加到工具箱中才能使 用。添加的方法有两种： （1）选择【工程】菜单【部件】命令弹出对 话框，在对话框的【控件】选项卡中选中 Microsoft Windows Common Control 6.0选项， 单击【确定】。 （2）用鼠标右击工具箱，弹出快捷菜单，选【部 件】命令。后续操作同上。概述 （2）执行上述操作后，工具箱中将添加如图10.6所 示的9个图标，Toolbar和ImageList控件即在其中 。概述 （3）创建工具栏的步骤如下：（1）将ImageList控件添加到窗体上，然后在 ImageList控件中添加所需的图像。（2）将Toolbar控件添加到窗体上，在Toolbar控 件中创建Button（按钮）对象。（3）在ButtonClick事件中用Select Case语句对 各按钮进行相应的编程。在多文档界面（MDI）应用程序的开发中，工具栏 应放在MDI父窗体中。返回首页返回本节10.2.1 在ImageList控件中添加图像(1)ImageList控件包含了一个图像的集合，它专门 用来为其他控件提供图像库。特别是ListView， TreeView，TabStrip和Toolbar等控件都是从其中 获取图像。在利用Toolabar控件制作工具栏时， 其中按钮的图像就是从ImageList的图像库中获得 。 在窗体上添加ImageList控件后，其默认名为 ImageList1，右击该控件，从弹出菜单中选择【 属性】，然后在【属性页】对话框选择【图像】 选项卡，见图10.7。 10.2.1 在ImageList控件中添加图像(2)图10.7 ImageList属性页【图像】选项卡 10.2.1 在ImageList控件中添加图像(3)其中：【索引】：表示每个图像的编号，在Toolbar的按 钮中引用。【关键字】：表示每个图像的标识名，在Toolbar 的按钮的引用。【图像数】：表示已插入的图像数目。【插入图片】按钮：插入新图像，图像文件的扩 展名为.ico、.bmp、.gif、.jpg等。【删除图片】按钮：删除选中的图像。10.2.1 在ImageList控件中添加图像(4)向ImgeList中添加图像的具体操作是 ：单击【插入图片】按钮，这时会弹出【 选定图片