菜单、工具栏和状态栏1.pptVIP

10.1 菜单的应用,第10章 菜单、工具栏和状态栏,退出,10.2工具栏和状态栏,10.1 菜单的应用,在窗口环境下，绝大多数应用程序使用菜单界面进行各种操作。菜单提供了人机对话界面，方便使用者选择应用系统的各种功能。另外，通过菜单可以管理应用系统，控制应用程序各种功能模块的运行。,菜单可分为下拉式菜单和弹出式菜单两种基本类型。 在 VB 中，菜单控件也是一个对象，具有定义它的外观与行为的属性。菜单控件只包含一个事件，即单击事件。,图10-1 下拉式菜单的组成,10.1.1 下拉式菜单,图10-2 菜单编辑器,从菜单编器器窗口可知，菜单编器器窗口分为三个部分，即属性区、编辑区和列表框。,1.属性区 属性区为窗口标题栏下面的 5 行，用来输入或修改菜单项，设置属性。其中的主要项目的作用见表 10-1 。,表 10-1 菜单控件的主要性,编辑区由 7 个按钮组成，单击右箭头将把选定的菜单向右移一个等级。单击左箭头将把选定的菜单向上移一个等级。单击上箭头将把选定的菜单项在同级菜单内向上移动一个位置。单击下箭头把选定的菜单项在同级菜单内向下移动一个位置。单击“下一个”按钮将开始一个新的菜单项。单击“插入”按钮将在某个菜单项前插入一个新的同级空白菜单项。单击“删除”按钮将删除选定的菜单项。,2.编辑区,3. 列表框 菜单项列表框为菜单编辑器最下面的列表框，该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。参见图 10-3 。,图10-3 菜单编辑器,在使用Word应用程序时经常会发现，某些菜单项会呈灰色显示，此时单击该次菜单项没有任何反映，有时菜单项的标题会发生改变。这些都可以通过在菜单设计和程序代码中加以控制。 （1）有效性控制 一个菜单项是否正常显示，即该菜单项是否“有效”，是由该菜单项的“有效”属性来控制的。只有该属性设置为True时，单击该菜单项才会执行相应的操作。可以在设计时设置该属性值（选中图10-3中的“有效”复选框），也可以在运行时通过执行代码加以改变。 （2）可见性控制 只有将菜单项的Visible属性设置为True，该菜单项才显示。可以在设计时设置该属性值（选中图10-3中的“可见”复选框），也可以在运行时通过执行代码加以改变。 （3）菜单项标记 菜单项标记就是在菜单项左边加上标记 表明该菜单项处于选择状态。设计时该属性可以由菜单编辑器中的“复选”（Checked）属性设置，也可以在属性窗口的“Checked”栏内设置。通常情况下，该属性时在程序运行时动态地进行设置的。,4. 快捷键和访问键,访问键是标题中带下划线的字符，如在标题中输入“文件(&F)”，则在程序运行时F便是带下划线的字符，按Alt+F组合键便可以打开“文件”菜单。需要指出的是，菜单中不能使用重复的访问键。如果多个菜单项使用同一个访问键，那么该键将不起作用。 创建快捷键的方法是先选取要定义快捷键的菜单项，然后从“快捷键”组合框中选取一个组合键。如果要删除菜单项的快捷键，则从“快捷键”组合框中选取顶部的“(none)”项，如图10.4所示。,图10.4 添加快捷键和访问键的过程,任何复杂的菜单程序都遵循相同的设计方法，下面通过一个实例来说明编写菜单程序的过程。 例 10-1 ：某电脑销售公司销售系统界面见图10-4，部分菜单的内容见表 10-1 。试按表 10-2 设计菜单。,1）用菜单编辑器建立菜单的实例,图10-4 应用程序界面,表 10-2 菜单结构,1.菜单结构设计步骤,（1）打开需要设计菜单的窗 （2）打开菜单编辑器对话框口。 （3）在图10-3所示的菜单编辑器对话框的“标题”栏输入“用户&F”（&F表示热键为F），此时在菜单项显示区出现键入的内容，在“名称”栏内输入“MUser”，在“快捷键”下拉框内选择“None”。 （4）单击“下一个”按钮，菜单项显示区的条形光标下移，同时，菜单编辑器数据区清空。在“标题”栏输入“新建&N”，此时在菜单项显示区出现键入的内容，在“名称”栏内输入“MNew”，在“快捷键”下拉框内选择“Ctrl+N”。 （5）单击编辑区的右箭头在菜单项显示区的“新建&N”左边出现符号“”，表明“新建”是“用户”的下一级子菜单。 （6）仿照上面的步骤，建立所有菜单项，注意各菜单之间的关系用右箭头和左箭头按钮进行调整。,，,2.编写程序代码 设计好菜单后，需要编写菜单项的Click事件过程。 Private Sub dakai_Click(Index As Integer) Dim sFile As String Label1.Visible=False 隐藏Label1控件（即显示“欢迎”字样的的控件） On Error GoTo nofile 设置错误陷阱 With CommonDialog1 CommonDialog1为添加的通用对话框控件 .DialogTitle = “打开“ .CancelError = False .InitDir = “d:“ .Filter = “文本文件 |*.Txt“ .ShowOpen 显示“打开”对话框 If Len(.FileName) = 0 Then Exit Sub End If sFile = .FileName End With nofile: 错误处理 If Err.Number = 32755 Then Exit Sub End If 添加处理打开的文件的代码 End Sub,2）菜单项的增减,1.增加菜单项 菜单项的增减是通过菜单控件数组实现的。菜单控件数组和普通数组一样，是通过下标来访问数组中的元素（这里为菜单项）的。菜单控件数组可以设计时建立，也可以在运行时建立。 例10-3：在例10-2中，要求在程序运行时，在“文件”菜单的“退出”菜单项之上保留最近打开的文件清单。增加一个“清除”菜单项，当单击该菜单项时，将清除所有文件清单。 （1）打开如图10-8所示的菜单编辑器，单击菜单列表区中的“退出”项。 （2）单击“插入”按钮，清除数据区的内容。 （3）在“标题”栏输入“文件清单”，在“名称”栏内输入“MdocuName”（菜单名称），输入“索引”值0以使“MdocuName”菜单项成为菜单控件数组，设置“可见”属性为False。 （4）在“退出”菜单项前新增一个分隔符号，设置“可见”属性为False。 （5）在“退出”菜单项前新增一个标题为“清除”、名称为Clear的菜单项，设置“有效”属性为False。 （6）在窗体层定义变量menucounter控制菜单控件数组的下标。 Dim menucounter As Integer,（7）在“新建”和“打开”菜单项的Click事件过程中加上如下代码： menucounter = menucounter + 1 If menucounter 0 Then 当“MdocuName”菜单项不为空时，“清除”菜单项有效 Clear.Enabled = True Else Clear.Enabled = False End If,图10-5 初始菜单 图10-6 打开文件后的菜单,图10-5为“MdocuName”菜单项为空的情况（即没有一个文件打开），图10-6为打开了四个文件后的情况。,2.删除菜单项 在运行时用load语句增加的菜单项可以使用Unload语句删除，但不能删除设计时建立的菜单项。如单击“用户 | 清除”菜单项时，删除所有打开的文件清单，可以编写如下代码： Private Sub Clear_Click() For i = 0 To menucounter - 1 Unload Mdocumenu(menucounter - i) Next MSeg14.Visible = False 删除不必要的分隔线 End Sub,10.1.2 弹出菜单,弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。 在VB中，使用PopupMenu方法来显示弹出菜单。PopupMenu方法的语法为： 对象. PopupMenu 菜单名，标志，x，y,表10-3用于“标志 ” 的设置值,在例10-1中，当在Form1窗体上单击鼠标右键时，要求在光标处弹出“用户”菜单，需要添加的代码为： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MUser, vbPopupMenuCenterAlign End Sub PopupMenu可以适用于所有的菜单项，如有下列事件代码： Private Sub ListCPU_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MParta, vbPopupMenuCenterAlign End Sub 当鼠标右键单击ListCPU控件（为一个列表框控件，用于选择CPU配件）时，弹出“主要部件”子菜单，以便选择其他主要部件（打开其他配件的列表框）。MParta为主要部件子菜单的名称。,10.2 工具栏和状态栏,在Visual Basic环境中，提供两个ActiveX控件Toolbar(工具栏控件)和StatusBar(状态栏控件)，利用这两个控件便能够方便快捷地制作出工具栏和状态栏。 由于ActiveX控件通常不包含在标准控件中，所以使用前应首先将其添加进标准控件工具箱。在“工程”菜单中执行“部件”命令后弹出“部件”对话框。选择其中的Microsoft Windows Common Controls 6.0后单击“确定”按钮。此时将在标准控件工具箱中添加9个控件，其中就包含工具栏控件和状态栏控件，如图10.7所示。,图10.7(a) 工具栏控件,图10.7(b) 状态栏控件,10.2.1 工具栏,在窗体中加人工具栏控件的方法同其他控件一样，只是当它被加入时默认地出现在窗体的顶端。可以在属性窗口中通过修改工具栏控件的A1ign属性来设置它在窗体中的位置，如表10.4所示。,表10.4 工具栏的Align属性,例10.2 程序添加一个工具栏，工具栏中有3个按钮，可以改变文本框中的字体是否为“粗体”、“斜体”、“下划线”。如图10.8所示。,图10.