《Visual Basic概述》-第7章 菜单和工具栏

7.1VB中的菜单现在的大型应用程序的用户界面绝大多数是菜单界面。菜单栏中包含了各种操作命令。通过不同的菜单标题命令进行分组，以便用户能够更直观、更容易地访问这些命令。菜单的基本作用有两个，一是提供人机对话的接口，以便让用户选择应用系统的各种功能;二是管理应用系统，控制各种功能模块的运行。一个高质量的菜单程序，不仅能使系统美观，而且能使用户使用方便，并可避免由于误操作而带来的严重后果。下一页返回7.1VB中的菜单在实际应用中，菜单可分为两种基本类型:下拉式菜单和弹出式菜单。下拉式菜单一般通过选择菜单栏中菜单标题(如“文件”、“编辑”、“视图”等)的方式打开，如图7-1所示。弹出式快捷菜单则通过用鼠标右键单击某一区域的方式打开，如图7-2所示。一般来说，不同的区域所弹出的菜单内容是不同的。如在VB工具栏中的弹出菜单与窗体设计器中的弹出菜单就完全不同。返回上一页7.2

下拉式菜单在下拉式菜单系统中，一般有一个主菜单，称为菜单栏。菜单栏中包括一个或多个选择项，称为菜单标题。1.菜单编辑器菜单通过菜单编辑器(即菜单设计窗口)建立。可以通过下面的4种方法之一进入菜单编辑器:(1)选择行“工具”|“菜单编辑器”命令。(2)使用快捷键Ctrl+E。(3)单击工具栏中的“菜单编辑器”按钮。(4)在要建立菜单的窗体上单击鼠标右键，在弹出的快捷菜单中选择“菜单编辑器”命令。打开后的“菜单编辑器”窗口如图7-3所示。下一页返回7.2

下拉式菜单菜单编辑器分为下面3个部分。(1)菜单控件属性区。菜单控件属性区用于设置菜单项的各个属性，表7-1列出了其中的主要属性。说明:①“标题”文本框用来设置窗体上的菜单标题，即菜单项的Caption属性。对于英文标题，在输入时若在某个字母前输入一个“&”，那么该字母就成了快捷键字母，显示时该字母有下划线，操作时同时按下Alt键和该字母就可选择这个菜单项命令。如果设计的下拉菜单需要分成若干组，则需要用分界符进行分隔。在建立菜单时，在标题文本框中输入一个连字符“-”，那么菜单显示时就会出现一个分隔符。下一页返回上一页7.2

下拉式菜单②“名称”对话框用来设置菜单项的名称，即菜单项的Name属性。它不会显示出来，只是在程序中用来标识该菜单项。③“索引”文本框用来设置菜单控件数组下标，即菜单项的Index属性。若设计时未使用控件数组，则该文本框为空。④“快捷键”组合框用来为菜单项选择一个快捷键。菜单项可以没有快捷键，但若选了，则会出现在菜单项的右边，在程序运行时，用户按快捷键同样能完成选择菜单项并执行相应的操作。注意，顶层菜单是不用该组合框设置快捷键的。⑤“帮助上下文”文本框通过输入数字来选择帮助文件中特定的页数或与该菜单上下文相关的帮助文件。下一页返回上一页7.2

下拉式菜单⑥“协调位置”组合框用来确定菜单是否会出现或怎样出现。有4种选择方案:0-None(不设置)，1-Left(靠左边)，2-Middle(居中)，3-Right(靠右边)。⑦“有效”复选框表示某菜单项是否可执行。当选中该框时，表示菜单项的Enabled属性为True。⑧“可见”复选框表示某菜单项在运行程序时是否可见。⑨“显示窗口列表”复选框决定菜单控件上是否显示所打开的子窗体标题，仅对MDI窗体和MDI子窗体有效。⑩“←”和“→”按钮用于调整菜单项的级别。⑩“↑”和“↓”按钮用于改变菜单项的位置。下一页返回上一页7.2

下拉式菜单⑩“下一个”按钮用于编辑下一个菜单项。⑩“插入”按钮用于在选定菜单项之前插入一个菜单项。⑩“删除”按钮用于删除选定的菜单项。(2)编辑区。编辑区共有7个按钮，用来对输入的菜单项进行简单的编辑，如表7-2所示。(3)菜单项显示区菜单项显示区位于菜单编辑器的下部，输入的菜单项在这里显示出来，并通过内缩符号表明菜单项的层次。菜单中的每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。菜单项只能响应一个事件，即Click事件。下一页返回上一页7.2

下拉式菜单2.下拉式菜单应用举例例7-1在窗体上建立如图7-4所示的文件下拉菜单。操作步骤如下:(1)选择“工具”|“菜单编辑器”命令，打开“菜单编辑器”窗口。(2)在标题栏中输入“文件(&F)”，在菜单项显示区中出现同样的标题名称。(3)单击编辑区中的“下一个”按钮，菜单项显示区中的条形光标下移，同时资料区的“标题”栏及“名称”栏被清空，光标回到“标题”栏。下一页返回上一页7.2

下拉式菜单(4)在标题栏中输入“新建”，该信息同时在菜单项显示区中显示出来，用Tab键或鼠标把光标移到“名称”栏，输入“new"，单击编辑区的右箭头，菜单显示区中的“新建”右移，同时其左侧出现一个内缩符号“…”，表明“新建”是【文件】的下一级菜单。(5)依次输入菜单中的各项，如果需要指定快捷键，可以单击“快捷键”栏右端的箭头，从中选出。例如为“打开”菜单项选中“Ctrl+O”作为其快捷键。(6)设计完成后的窗口如图7-5所示，单击“确定”按钮，完成菜单的建立工作。下一页返回上一页7.2

下拉式菜单例7-2建立菜单。图7-6和图7-7所示是要建立的菜单，希望它能进行简单的加、减、乘、除运算。其中，菜单项中的“乘法”项有快捷键Ctrl+M,“除法”项有快捷键Ctrl+D。建立菜单大致可分为三个步骤:(1)建立控件。窗体上有6个控件，它们的属性如表7-3所示。(2)设计菜单。当窗口上的控件建立之后，就可以建立菜单。在设计状态下选择“工具”|“菜单编辑器”(CtrI+E)命令，出现菜单设计窗口。按照表7-4所示对每一个菜单项输入标题、名称和相应的快捷键。在菜单编辑器中设置好相应的菜单项后出现如图7-8所示的窗口。下一页返回上一页7.2

下拉式菜单(3)编写代码。在菜单建立完成之后，还需编写相应的事件过程代码。加法事件代码如下:PrivateSubAddClick()x=Val(Text1.Text)+Va1(Text2.Text)Labe14.Caption=Str$(x)EndSub清除事件代码如下:PrivateSuhClearClick()Text1.Text=“”下一页返回上一页7.2

下拉式菜单Text2.Text=“”Label4.Caption=“”Text1.SetFocusEndSub除法事件代码如下:PrivateSubDivClick()x=Val(Text1.Text)/Va1(Text2.Text)Label4.Caption=Str$(x)EndSub下一页返回上一页7.2

下拉式菜单退出事件代码如下:PrivateSubExitClick()EndEndSub乘法事件代码如下:PrivateSubMulClick()x=Val(Text1.Text)*Val(Text2.Text)Label4.Caption=Str$(x)EndSub下一页返回上一页7.2

下拉式菜单在减法运算中，被除数不能为零，代码如下:PrivateSubOperClick()IfVal(Text2.Text)=0ThenDiv.Enabled=FalseElseDiv.Enabled=TrueEndIfEndSub下一页返回上一页7.2

下拉式菜单减法事件代码:PrivateSubSubClick()x=Val(Text1.Text)?Val(Text2.Text)Label4.Caption=Str$(x)EndSub程序运行结果如图7-9所示。返回上一页7.3

弹出快捷式菜单应用举例一般来说，菜单都在窗口的顶部。当用户需要执行菜单中的某一命令时，就必须把鼠标指针移到窗口顶部打开菜单，选择命令。有时会觉得这种操作麻烦，如果使用弹出快捷式菜单，会使这一问题得以解决。弹出快捷式菜单能以灵活的方式为用户提供更加便利的操作，它可以根据用户单击鼠标右键时的位置，动态地调整菜单项的显示位置，同时也改变菜单项显示内容，因此弹出式菜单又称为“上下文菜单”或“快捷菜单”。设计弹出式菜单仍然使用VB提供的菜单编辑器，只要把某个菜单设置成隐藏(即“可见”栏Visible属性为False)就可以了。运行程序时，单击鼠标右键，就会弹出快捷菜单。下一页返回7.3

弹出快捷式菜单应用举例实际上，不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在程序运行期间显示出来，PopupMenu方法的使用形式如下:[对象].PopupMemu菜单名，标志，x，y其中，菜单名是必须的，其他参数是可选的。参数“x,y”指定弹出菜单显示的位置，标志菜单参数用于进一步定义弹出菜单的性能和位置，它的取值见表7-5。注意:标志为0时，为系统默认状态，这时标志后面的X坐标是弹出菜单的左边界;当标志为4时，x坐标是弹出菜单的中心位置;当“标志”为8时，x坐标是弹出菜单的右边界。下一页返回上一页7.3

弹出快捷式菜单应用举例例7-3把前面设计的“结束”菜单改为在程序运行时作为弹出菜单显示出来。分析:首先，将“结束”菜单的Visiable属性改为False(去掉小框内的“√”)，如图7-10所示。然后，编写如下的事件过程:PrivateSubFormMouseDown(ButtonAsInteger，ShiftAsInteger,XAsSinele，YAsSingle)下一页返回上一页7.3

弹出快捷式菜单应用举例

IfButton=2ThenPopupMenuFinishEndIfEndSub在程序运行时，鼠标右键单击窗体，即可弹出快捷菜单，如图7-11所示。另外，在VB的文本框中，即使不编程也可以得到一个弹出式快捷菜单。例如在文本编辑器中，单击鼠标右键即可得到如图7-12所示的弹出式快捷菜单。返回上一页7.4

多文档界面设计多文档界面由父窗体和子窗体组成，是指在一个父窗体下可以同时打开多个子窗体。父窗体也称MDI窗体，它作为子窗体的容器。子窗体也称文档窗体，用来显示各自文档。这样，用户就可以同时浏览和比较不同的文档。创建多文档界面菜单的方法和创建普通菜单基本相同，区别在于子窗体和父窗体菜单的显示受一定条件的限制。当父窗体的子窗体都处于关闭状态或者子窗体没有菜单时，父窗体菜单才会显示。当包含菜单的子窗体打开时，父窗体的菜单将会消失，窗口上出现的是子窗体的菜单。下一页返回7.4

多文档界面设计7.4.1建立多文档界面MDI应用程序至少应用两个窗体:一个父窗体和一个子窗体。父窗体只能有一个，子窗体则可以有多个。子窗体就是MDIChild属性设置为Ture的普通窗体。下面就以一个示例来说明如何利用VB中的MDI进行程序设计，具体步骤如下:(1)新建工程。选择“工程”|“添加(MDI)窗体”命令，将其caption属性修改为“父窗体”，如图7-13所示。下一页返回上一页7.4

多文档界面设计(2)添加子窗体。选择“工程”|“窗体”命令，添加form1、form2、form3，将它们的MIDChild属性值修改为True,caption属性分别修改为“子窗体1”、“子窗体2”、“子窗体3”，name属性分别修改为“my1”、“my2”、“my3”，MIDChild属性都设置为True。(3)选择“工程”|“属性”命令，打开“工程属性”对话框，设置MDI窗体为启动窗体。下一页返回上一页7.4

多文档界面设计(4)编写代码，在父窗体MDI中显示所有子窗体:PrivateSubMDIFormLoad()Form1.ShowForm2.ShowForm3.ShowEndSnb运行结果如图7-14所示。下一页返回上一页7.4

多文档界面设计注意:MDIchild属性只能在设计时设置，窗体在运行时，该属性是只读的，不能更改。当MDIchild属性为Ture时，说明该窗体是一个MDI子窗体，将被显示在MDI父窗体内;若MDIchild属性为False(缺省值)，则窗体是一个普通的窗体，不是一个MDI的子窗体，其显示范围不受MDI窗体的限制。一个应用程序只能有一个MDI窗体。在MDI窗体中，可以创建菜单、工具栏和状态栏，除了具有Align属性的控件(如PictureBox)或者具有不可见界面的控件(如Timer)外，大多数控件不能直接放置在MDI窗体上。下一页返回上一页7.4

多文档界面设计7.4.2创建MDI应用程序的菜单1.创建子窗体(1)新建一个普通窗体，将窗体的Name属性改为“My1"，并在窗体My1中放置一个文本框Text1。(2)设置文本框的属性。按表7-6所示设置窗体及文本框的属性。设置结果如图7-15所示。下一页返回上一页7.4

多文档界面设计2.创建MDI窗体在VB的MDI应用程序中，父窗体被称为MDI窗体。在工程中创建MDI窗体，可通过选择“工程”|“添加MDI窗体”命令，在“添加MDI窗体”对话框中单击“打开”按钮，将MDI窗体MDI-Forml的Caption属性设置为“MDI界面的应用”，如图7-16所示。然后利用“菜单编辑器”，以表7-7所示为窗体MDIForm1建立程序菜单。由于篇幅有限，只给出部分提示或代码，其余代码作为练习请读者自己去完成。下一页返回上一页7.4

多文档界面设计PrivateSubLoadNewDocu()

‘创建打开一个文档窗口DimFrmDAsNewform1，

docucount=docucount+1FrmD.Caption=”my”&Str(docucount)FrmD.ShowEndSubPrivateSubmenuNewClick()‘调用过程LoadNewDocu来新建文档

LoadNewDocuEndSub下一页返回上一页7.4

多文档界面设计PrivateSubmenuCloseClick()‘关闭MDIForntl窗口中的活动文档窗体

UnloadMDIForm1.ActiveForntEndSub注意:在MDI应用程序中，用Dim语句可以增加子窗体。其格式为:Dim对象变量AsNew对象名或对象类型对象名是已经存在的窗体。Dim语句声明窗体后，只有在执行Show方法后才能显示出新的子窗体。3.运行程序本程序运行的界面如图7-17所示。下一页返回上一页7.4

多文档界面设计7.4.3多文档其他的属性、方法和事件多文档除了MDIchild属性外，还有其他的属性和方法，分别介绍如下。1.Arrange方法Arrange方法用来以不同的方式排列MDI中的窗口或图标。格式:MDI窗体名称.Arrange方式注意:“方式”是一个整数，用来指定MDI窗体中子窗体或图标的排列方式。0vbCascade—层叠所有非最小化的MDI子窗体。1vbTileHorizontal—水平平铺所有非最小化的MDI子窗体。下一页返回上一页7.4

多文档界面设计2vbTileVertical—垂直平铺所有非最小化的MDI子窗体。3vbArrangeIcons—排列所有子窗体图标。下面给出了“层叠”、“平铺”菜单项的事件过程:Privatesubmnu层叠click()

‘层叠子窗体

MDIForm1.arrangevbCascadeEndsubPrivatesubmnu层叠click()

‘平铺子窗体MDIForm1.arrangevbTileHorizontalEndsub下一页返回上一页7.4

多文档界面设计2.QueryUnload事件在使用Windows应用程序后，要退出Windows时，如果在Word中的文档已修改而未存盘，则会显示一个对话框，询问用户是否要将修改过的文档存盘。在MDI应用程序中也有类似情况，即不能随着父窗体的关闭而使得所有子窗体结束，因为这样可能会造成子窗体内容的丢失。为此，VB提供了QueryUnload事件。其格式为:PrivateSubFormQueryUnload(CancelAsInteger,UnloadModeAsIntegerEndSub其取值含义如表7-8所示。返回上一页7.5

工具栏设计工具栏(也称为发条或者控制栏)已经成为许多基于Windows的应用程序的标准功能。一般都是将最常用的命令以按钮的形式集合在一起放在工具栏上，以便用户的操作。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。制作工具栏有两种方法:一是手工制作，即利用图形框和命令按钮，这种方法比较烦琐，本书不予讨沦。另一种方法是通过组合使用ToolBar,ImageList控件来轻松地创建工具栏，也可以使用应用程序向导来创建工具栏，方法更加简便。下一页返回7.5

工具栏设计ToolBar,ImageList控件都是ActiveX控件，使用这些控件前必须先将这些控件添加到工具箱中，添加的方法有两种。(1)选择“工程”|“部件”命令，即可打开“部件”对话框。选中MicrosoftWindowsCommonControls6.0，单击“确定”按钮，即可在工具箱中增加一组控件。其中用来创建工具栏的控件是Toolbar控件与ImageList控件，如图7-18所示。(2)用鼠标右键单击工具箱，在弹出的快捷菜单中选择“部件”命令，后续操作同第一种方法。下一页返回上一页7.5

工具栏设计创建工具栏的操作步骤如下:(1)将ImageList控件添加到窗体上，然后在ImageList控件中添加所需的图像。(2)将Toolbar控件添加到窗体上，在Toolbar中创建Button对象。(3)在ButtonClick事件中用slectcase语句对各按钮进行相应的编程。下一页返回上一页7.5

工具栏设计7.5.1利用ImageList控件在工具按钮上显示图像在创建ToolBar控件之前，应创建一个ImageList控件并添加想要的图像。ImageList控件包含ListImage对象的集合，它专门用来为其他控件提供图像库，该集合中的每个对象都可以通过其索引或关键字被引用。ImageList控件不能独立使用，只是作为一个便于向其他控件提供图像的资料中心。如工具栏控件(ToolBar)中的图像就是从ImageList控件中获取的。在窗体上添加ImageList控件后，用鼠标右键单击ImageList1控件，在弹出的快捷菜单中选择“属性”命令，打开如图7-19所示“属性页”对话框，选择“图像”选项卡，单击“插入图片”按钮，插入想要的图片，最后单击“确定”按钮。下一页返回上一页7.5

工具栏设计其中的“索引”和“关键字”(可选)属性用来引用每张图片。(1)“索引”:表示每个图像的编号，在Toolbar的按钮中引用。(2)“关键字”:属性是唯一的字符串，用来识别图片，在Toolbar的按钮中引用。使用“关键字”属性比使用“索引”要好，因为当插入或删除图片时，索引会发生改变而关键字不会改变。(3)“图像数”:表示已插入图像的数目。(4)“插入图片”按钮:选择插入新图像。(5)“删除图片”按钮:删除选中的图像。下一页返回上一页7.5

工具栏设计7.5.2在Toolbar控件中添加按钮1.为工具栏链接图片按钮工具栏按钮本身没有Picture属性，不能像其他控件那样用Picture属性直接添加按钮上显示的图片。利用ImageList控件为Toolbar添加图片的具体操作过程如下:(1)向Toolbar控件所在的窗体中添加ImageList控件。(2)用鼠标右键单击窗体中的ImageList控件，在弹出的快捷菜单中选择“属性”命令，打开“属性页”对话框，如图7-20所示。使用工具栏控件(Toolbar)可以使应用程序的工具栏更具标准化和更显专业性。下一页返回上一页7.5

工具栏设计右键单击Toolbar控件，选择“属性”命令，打开如图7-20所示的Toolbar控件“属性页”对话框，选择“通用”选项卡，在“图像列表”处选择ImageList[控件名“ImageList

1”。其中:(1)”图像列表”下拉列表:表示与ImageList控件建立连接，这里选择的是ImageList1。在程序运行时，下述代码也可建立两者间的关联:PrivateSubFormLoad()Toolbar1.ImageList=ImageList1EndSub(2)“可换行的”复选框:表示当工具栏的长度不能容纳所有的按钮时，可换到下一行显示。下一页返回上一页7.5

工具栏设计2.为工具栏添加按钮在Toolbar控件“属性页”对话框中，切换到“按钮”选项卡，如图7-21所示。单击“插入按钮”按钮，在工具栏控件中就增加了一个按钮。每个按钮对应一个索引值，索引值是在建立按钮时自动形成的，第一个按钮的索引值为1,每增加一个按钮，索引值就自动加1，可以索引值作为引用按钮的依据。在“标题”文本框中输入的文字将会显示在按钮上。“工具提示文本”文本框中输入的文字，在执行程序时，鼠标停留在该按钮上，输入的文字便会显示出来。下一页返回上一页7.5

工具栏设计Toolbar控件上按钮的图像与ImageList控件的图像是对应的，需将图7-21中“图像”文本框的值改为对应的图7-20图像的索引值，图像就会在按钮上显示出来。如图7-22所示。单击“确定”按钮，按钮就依次添加到工具栏上。为工具栏按钮载入图片。一旦Toolbar与ImageList控件建立了关联，Toolbar属性页对话框“按钮”选项卡中的“图像”选项变为有效。在“图像”一栏中可以用两种方法来把按钮与ImageList中的某个图片关联:把按钮的“图像”属性设置为图片的“索引”数或图片的“关键字”属性(注意“关键字”属性是区分大小写的)。下一页返回上一页7.5

工具栏设计7.5.3为Toolbar控件中的按钮编写事件过程在窗体中添加工具栏的目的是使按钮对用户的操作做出响应。因此，在工具栏创建完成后，还需要编写相应的代码，按钮才能起作用。工具栏中的按钮只对用户的单击事件做出响应，由于在工具栏中添加了不止一个按钮，编写事件驱动代码的关键是要识别用户单击了工具栏中的哪个按钮。在编写代码时，可以用“索引值”识别不同的按钮，按每个按钮添加时的先后顺序，索引值依次为1,2,3……;也可以用“关键字值”识别不同的按钮，关键字值区分大小写，是用户自定义的标志符。下一页返回上一页7.5

工具栏设计由于可能存在多个按钮，所以用选择结构来区分按钮，并编写对应的事件代码。假设工具栏上有“复制”、“粘贴”等命令按钮，则用不同的实现方法编程如下。(1)用索引值(index)引用按钮

PrivateSubToolbar1ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1<复制语句块>下一页返回上一页7.5

工具栏设计Case2<粘贴语句块>?…EndSelectEndSub(2)用关键字值(key)引用按钮此处，假定“复制”按钮的关键字设为“copy",“粘贴”按钮的关键字设为“paste"，则:PrivateSubToolbar1ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.key下一页返回上一页7.5

工具栏设计Case"copy”<复制语句块>Case"paste"<粘贴语句块>……EndSelectEndSub关键字是唯一标志符，一个按钮只能对应一个特定的关键字，当按钮有增、删时，不影响原先已编好的程序。而且使用关键字，程序的可读性更强。下一页返回上一页7.5

工具栏设计下面举一个例子来说明索引值和关键字在工具栏按钮中的应用:向Toolbar控件中添加5个按钮，运行程序，单击其中一个按钮显示如图7-23所示的标签控件中文本的变化。实现步骤如下:(I)用索引值引用按钮①将Toolbar控件和ImageList控件添加到窗体中。②向ImageList控件的属性页中添加5个图片，索引值依次为1,2,3,4、5。)③向Toolbar控件的属性页中添加5个按钮，按钮的索引值依次为1,2,3,4,5，建立Toolbar控件中的按钮与ImageList控件中的图片相关联。下一页返回上一页7.5

工具栏设计④在窗体上增加一个标签控件，将其Label1.caption属性设为“还未单击按钮”。⑤双击Toolbar控件，进入代码编辑窗口，添加代码如下:PrivateSubToolbar1ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Label1.caption=”选择了第一个按钮”

Case2Label1.caption=”选择了第二个按钮”

Case3Label1.caption=”选择了第二个按钮”

Case4Label1.caption=”选择了第四个按钮”

Case5Label1.caption=”选择了第五个按钮”下一页返回上一页7.5

工具栏设计EndSelectEndSub程序运行结果如图7-23所示。(2)用