4.6 创建工具栏

　　工具栏已经成为许多基于Windows的应用程序的标准功能，它提供了对应用程序中最常用的菜单命令的快速访问。工具栏一般处于菜单栏下面，由多个按钮排列组成，用户可以通过单击这些按钮来执行一些操作。与菜单相比，使用工具栏更方便快捷。

　　要创建工具栏，需要两个控件：工具栏控件(Tollbar)与图像列表控件( ImageList).在Visual Basic的专业版与企业版中都提供了这两个控件。工具栏控件。设置工具栏按钮与处理用户的操作，图像列表控件则负责提供在按钮上显示的图标。工具栏的整个设计过程可分为下面几个步骤：

　　(1)将工具栏控件与图像列表控件添加到工具箱中。

　　(2)将工具栏控件与图像列表控件放置到窗体上。

　　(3)向图像列表控件添加图片。

　　(4)使用工具栏控件建立按钮。

　　(5)编写按钮的程序代码。

　　在默认情况下，工具栏与图像列表控件不出现在工具箱中，在使用它们前，用户需要将它们添加到工具箱中。

　　执行【工程】菜单中的【部件】命令，出现如图4.22所示的对话框。在控件列表中选中Microsoft Windows Common Controls 6.0选项，单击【确定】按钮。可以发现，工具箱中多了9个控件，其中包括工具栏与图像列表控件。 

　　图像列表控件不能独立使用，只是作为一个便于向其它控件提供图像的资料中心。它需要第二个控件显示所储存的图像。第二个控件可以是任何能显示图像的控件。正是由于图像列表控件的这一特点，它常常被用来与工具栏控件一起创建工具栏。

　　工具栏通常用图标代表应用程序的功能。例如，软盘的图标一般代表"保存文件"功能。要使工具栏能够显示这样的图标，可以首先将所要的按钮图标添加到图像列表控件中。然后将图像列表控件与工具栏控件相关联。本节将介绍如何向图像列表控件中添加图片。

　　将图像列表框控件放置在窗体上，在运行时，该控件不出现在界面中，因此，不必在意它在窗体中的位置。将鼠标移动到图像列表框控件上。单击右键，在弹出的快捷菜单中执行【属性】命令，弹出【属性页】对话框。

　　选择【图像】选项卡。单击其中的【插入图片】按钮，打开【选定图片】对话框，在该对话框中选择某一图片，单击【打开】按钮即可将该图片添加到图像列表控件中。重复插入图片操作，可以为图像列表控件添加多个图片。单击【确定】按钮即可完成操作。

　　在添加了图片后，系统自动为每个图片设置了一个索引号，第一个添加的图片的索引号为1,第二个为2,依次类推。图片的索引号很重要，在工具栏控件与图像列表控件关联时，就是以图片索引号来调用各图片的：也可以使用关键字来调用图片，因此，最好每一个图片指定一个唯一的关键字;在【图像】列表框中单击选中某个图片，单击【删除图片】按钮可将该图片从图像列表控件中删除。

　　这里为图像列表控件添加3个图片，如图4.25所示，以便在以后创建工具栏时使用。表4.14中列出了添加的图片的文件名称以及对应的索引号和关键字。

　　提示：如果在安装VB时选择可安装图片，则在VB的安装目录\Common\Graphics\Bitmaps\TIBR_95文件夹中包含了大量的Windows的标准按钮图标。

　　将工具栏控件放置在窗体上。工具栏控件总是出现在窗体的上方，并且不能改变它的大小与位置。这是因为在默认情况下，工具栏控件的Alignment属性的值为1-vbAlignTop.通过设置该属性，还可以使得工具栏沿窗体的其他边对齐。例如，将Alignment属性的值设置为2 -vbAlignBottom,则工具栏沿窗体的底边对齐。如果要创建一个浮动的工具栏，可以设置Alignment属性的值为0-vbAlignNone.用户可以调整它的大小与位置。

　　工具栏控件的【属性】窗口中还有其他一些重要的属性。在工具栏控件的【属性页】对话框中也可以设置控件的属性，并且更直观。对于初学者，建议通过【属性页】对话框设置属性。

　　将鼠标移动到工具栏控件上，单击右键，弹出一个快捷菜单，执行其中的【属性]命令即可打开如图4.27所示的【属性页】对话框。单击【图像列表】的下三角按钮，在下拉列表中选择ImageListl选项(ImageListl是在前面放置在窗体上并添加了图片的图像列表控件),这样就建立了工具栏控件与图像列表控件的关联。

　　其他一些较为重要的属性的含义如下：

　　允许自定义(AllowCustomize)属性决定用户是否可以通过双击工具栏打开【自定义工具栏】对话框栏重新设置工具栏。 [NextPage]

　　显示提示(ShowTips)属性确定鼠标停留在按钮上时是否显示工具提示。

　　可换行的(Wrappable)属性确定若在一行内容纳不下全部按钮时，是否以两行显示按钮。

　　有效(Enabled)属性确定按钮是否可用。

　　注意：括号内的英文在【属性】窗口中显示的属性。

　　在【属性页】对话框的【通用】选项卡中还可以设置工具栏的外观属性，如外观、边框和样式等。在设置这些属性后，单击【应用】按钮，即可在窗体中预览到设置的效果。读者可自行试一试更改各外观属性后的效果。

　　在【通用】选项卡中设置的是有关整个工具栏的属性，要为工具栏建立按钮，需要在【按钮】选项卡中执行。

　　打开【按钮】选项卡。单击【插入按钮】按钮，通过在其中设置一些按钮的属性，即可在工具栏中建立一个按钮。重复插入按钮操作，可以为工具栏建立多个按钮。按钮的一些重要属性的含义如下： 

　　按钮就好象数组中的元素一样，在程序中可以通过它们的索引号来引用。

　　例如：

　　Toolbarl.Buttons(1).Caption="打开"该语句是将索引号为1的按钮的标题设置为"打开".

　　标题(Caption)属性用来设置要在按钮上显示的文本，如果不输入任何内容，则按钮上只显示图标，不显示文本。大多数工具栏中的按钮上都不显示文本。

　　关键字(Key)属性是指按钮的名称，在程序中也可以以关键字来引用按钮。

　　样式(Style)属性用来设置按钮的类型。表4.15中列出了该属性的取值及对应的按钮类型。

　　工具提示文本(ToolTipText)属性用来设置当鼠标停留在按钮上时，显示的工具提示。[NextPage]

　　图像(Image)属性指定在按钮上显示的图片的索引号或关键字。其中图片的索引号与关键字是在图像列表控件的【属性页】对话框中指定的。　

　　这里为工具栏建立3个按钮。它们的属性设置，其他属性均采用默认设置。　　 

　　到此，在窗体的工具栏控件上出现了3个按钮。运行该程序，将鼠标停留在某个按钮上，会显示出该按钮的工具提示文本。但是，单击按钮不会执行任何操作，这是因为还没有为该按钮编写事件过程。

　　本节将为上一节中所创建的工具栏编写代码，使按钮能执行一定的操作。

　　在前面创建了工具栏的窗体中放置一个文本框。各对象的属性设置。

　　在运行模式下，每当用户单击工具栏中的按钮时，就会触发该工具栏的ButtonClick事件。因此，为工具栏编写代码其实就是编写它的ButtonClick事件过程。

　　双击工具栏，打开【代码】窗口，工具栏的ButtonClick事件过程的框架自动出现在【代码】窗口中，编写该过程如下：

　　Private Sub Toolbarl_ButtonClick(Byval Button As MSComctllib.Buton)

　　Select Case Button.Key

　　Case“Bopen”

　　Text1.Text=“文档打开成功!”

　　Case“Bsave”

　　Text1.Text=“文档保存完毕!”

　　Case“print”

　　Text1.Text=“正在打印文档···”

　　End Select

　　End Sub

　　在代码中，使用了Select Case语句来判断按钮的关键字。对于不同的按钮，单击后在文本框中显示不同的内容。

　　运行该程序，单击某按钮，在文本框就会显示出与该按钮相关的内容。