菜单、工具栏和状态栏.ppt

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事件过程。PrivateSubdakai_Click(IndexAsInteger)DimsFileAsStringLabel1.Visible=False隐藏Label1控件（即显示“欢迎”字样的的控件）OnErrorGoTonofile设置错误陷阱WithCommonDialog1CommonDialog1为添加的通用对话框控件.DialogTitle=打开.CancelError=False.InitDir=d:.Filter=文本文件|*.Txt.ShowOpen显示“打开”对话框IfLen(.FileName)=0ThenExitSubEndIfsFile=.FileNameEndWithnofile:错误处理IfErr.Number=32755ThenExitSubEndIf添加处理打开的文件的代码EndSub,2）菜单项的增减,1.增加菜单项菜单项的增减是通过菜单控件数组实现的。菜单控件数组和普通数组一样，是通过下标来访问数组中的元素（这里为菜单项）的。菜单控件数组可以设计时建立，也可以在运行时建立。例10-3：在例10-2中，要求在程序运行时，在“文件”菜单的“退出”菜单项之上保留最近打开的文件清单。增加一个“清除”菜单项，当单击该菜单项时，将清除所有文件清单。（1）打开如图10-8所示的菜单编辑器，单击菜单列表区中的“退出”项。（2）单击“插入”按钮，清除数据区的内容。（3）在“标题”栏输入“文件清单”，在“名称”栏内输入“MdocuName”（菜单名称），输入“索引”值0以使“MdocuName”菜单项成为菜单控件数组，设置“可见”属性为False。（4）在“退出”菜单项前新增一个分隔符号，设置“可见”属性为False。（5）在“退出”菜单项前新增一个标题为“清除”、名称为Clear的菜单项，设置“有效”属性为False。（6）在窗体层定义变量menucounter控制菜单控件数组的下标。DimmenucounterAsInteger,（7）在“新建”和“打开”菜单项的Click事件过程中加上如下代码：menucounter=menucounter+1Ifmenucounter0Then当“MdocuName”菜单项不为空时，“清除”菜单项有效Clear.Enabled=TrueElseClear.Enabled=FalseEndIf,图10-5初始菜单图10-6打开文件后的菜单,图10-5为“MdocuName”菜单项为空的情况（即没有一个文件打开），图10-6为打开了四个文件后的情况。,2.删除菜单项在运行时用load语句增加的菜单项可以使用Unload语句删除，但不能删除设计时建立的菜单项。如单击“用户|清除”菜单项时，删除所有打开的文件清单，可以编写如下代码：PrivateSubClear_Click()Fori=0Tomenucounter-1UnloadMdocumenu(menucounter-i)NextMSeg14.Visible=False删除不必要的分隔线EndSub,10.1.2弹出菜单,弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。在VB中，使用PopupMenu方法来显示弹出菜单。PopupMenu方法的语法为：对象.PopupMenu菜单名，标志，x，y,表10-3用于“标志”的设置值,在例10-1中，当在Form1窗体上单击鼠标右键时，要求在光标处弹出“用户”菜单，需要添加的代码为：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMUser,vbPopupMenuCenterAlignEndSubPopupMenu可以适用于所有的菜单项，如有下列事件代码：PrivateSubListCPU_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMParta,vbPopupMenuCenterAlignEndSub当鼠标右键单击ListCPU控件（为一个列表框控件，用于选择CPU配件）时，弹出“主要部件”子菜单，以便选择其他主要部件（打开其他配件的列表框）。MParta为主要部件子菜单的名称。,10.2工具栏和状态栏,在VisualBasic环境中，提供两个ActiveX控件Toolbar(工具栏控件)和StatusBar(状态栏控件)，利用这两个控件便能够方便快捷地制作出工具栏和状态栏。由于ActiveX控件通常不包含在标准控件中，所以使用前应首先将其添加进标准控件工具箱。在“工程”菜单中执行“部件”命令后弹出“部件”对话框。选择其中的MicrosoftWindowsCommonControls6.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.8工具栏的运行过程,10.2.2状态栏,使用状态栏控件和使用工具栏控件一样，首先需要在工具箱中添加ActiveX控MicrosoftWindowsCommonControls6.0。在窗体中添加状态栏控件，状态栏控件一般位于窗体的下方，如图10.9所示。,图10.9在窗体中添加状态栏,表10.5状态栏的Style属性,例10.3为程序添加一个状态栏，显示当前文本的字体大小和字体颜色，如图10.10所示,图10.10状态栏的运行过程,