2011年度计算机等级考试二级VB复习指导(22)

会计考友

4.6 创建工具栏　　工具栏已经成为许多基于Windows的应用程序的标准功能，它提供了对应用程序中最常用的菜单命令的快速访问。工具栏一般处于菜单栏下面，由多个按钮排列组成，用户可以通过单击这些按钮来执行一些操作。与菜单相比，使用工具栏更方便快捷。
　　要创建工具栏，需要两个控件：工具栏控件(Tollbar)与图像列表控件( ImageList).在Visual Basic的专业版与企业版中都提供了这两个控件。工具栏控件。设置工具栏按钮与处理用户的操作，图像列表控件则负责提供在按钮上显示的图标。工具栏的整个设计过程可分为下面几个步骤：
　　(1)将工具栏控件与图像列表控件添加到工具箱中。
" q9 Q/ {& l% I5 h　　(2)将工具栏控件与图像列表控件放置到窗体上。
, ~1 f. S- ], O( u* X　　(3)向图像列表控件添加图片。
　　(4)使用工具栏控件建立按钮。
　　(5)编写按钮的程序代码。
) Q% \2 ]0 B/ k, d+ O+ J　　在默认情况下，工具栏与图像列表控件不出现在工具箱中，在使用它们前，用户需要将它们添加到工具箱中。
- a3 T: r, X' F- ~9 w, |( c　　执行【工程】菜单中的【部件】命令，出现如图4.22所示的对话框。在控件列表中选中Microsoft Windows Common Controls 6.0选项，单击【确定】按钮。可以发现，工具箱中多了9个控件，其中包括工具栏与图像列表控件。

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

会计考友

　工具栏通常用图标代表应用程序的功能。例如，软盘的图标一般代表"保存文件"功能。要使工具栏能够显示这样的图标，可以首先将所要的按钮图标添加到图像列表控件中。然后将图像列表控件与工具栏控件相关联。本节将介绍如何向图像列表控件中添加图片。　　将图像列表框控件放置在窗体上，在运行时，该控件不出现在界面中，因此，不必在意它在窗体中的位置。将鼠标移动到图像列表框控件上。单击右键，在弹出的快捷菜单中执行【属性】命令，弹出【属性页】对话框。
　　选择【图像】选项卡。单击其中的【插入图片】按钮，打开【选定图片】对话框，在该对话框中选择某一图片，单击【打开】按钮即可将该图片添加到图像列表控件中。重复插入图片操作，可以为图像列表控件添加多个图片。单击【确定】按钮即可完成操作。
  {% y8 v- }8 I+ V8 n5 o% N　　在添加了图片后，系统自动为每个图片设置了一个索引号，第一个添加的图片的索引号为1,第二个为2,依次类推。图片的索引号很重要，在工具栏控件与图像列表控件关联时，就是以图片索引号来调用各图片的：也可以使用关键字来调用图片，因此，最好每一个图片指定一个唯一的关键字;在【图像】列表框中单击选中某个图片，单击【删除图片】按钮可将该图片从图像列表控件中删除。
　　这里为图像列表控件添加3个图片，如图4.25所示，以便在以后创建工具栏时使用。表4.14中列出了添加的图片的文件名称以及对应的索引号和关键字。

　　
　　提示：如果在安装VB时选择可安装图片，则在VB的安装目录\Common\Graphics\Bitmaps\TIBR_95文件夹中包含了大量的Windows的标准按钮图标。
　　将工具栏控件放置在窗体上。工具栏控件总是出现在窗体的上方，并且不能改变它的大小与位置。这是因为在默认情况下，工具栏控件的Alignment属性的值为1-vbAlignTop.通过设置该属性，还可以使得工具栏沿窗体的其他边对齐。例如，将Alignment属性的值设置为2 -vbAlignBottom,则工具栏沿窗体的底边对齐。如果要创建一个浮动的工具栏，可以设置Alignment属性的值为0-vbAlignNone.用户可以调整它的大小与位置。
# m; ^2 ^9 L/ {# l- h　　工具栏控件的【属性】窗口中还有其他一些重要的属性。在工具栏控件的【属性页】对话框中也可以设置控件的属性，并且更直观。对于初学者，建议通过【属性页】对话框设置属性。
- t0 ^+ d- d! O) P- D　　将鼠标移动到工具栏控件上，单击右键，弹出一个快捷菜单，执行其中的【属性]命令即可打开如图4.27所示的【属性页】对话框。单击【图像列表】的下三角按钮，在下拉列表中选择ImageListl选项(ImageListl是在前面放置在窗体上并添加了图片的图像列表控件),这样就建立了工具栏控件与图像列表控件的关联。
$ e$ M5 A/ q* {, l# ~0 T" J
' W2 r4 }6 h4 x9 `# X% K2 o　　
! W0 ~1 }4 Z4 w6 F4 n　　其他一些较为重要的属性的含义如下：
　　允许自定义(AllowCustomize)属性决定用户是否可以通过双击工具栏打开【自定义工具栏】对话框栏重新设置工具栏。

会计考友

　显示提示(ShowTips)属性确定鼠标停留在按钮上时是否显示工具提示。　　可换行的(Wrappable)属性确定若在一行内容纳不下全部按钮时，是否以两行显示按钮。
　　有效(Enabled)属性确定按钮是否可用。
　　注意：括号内的英文在【属性】窗口中显示的属性。
　　在【属性页】对话框的【通用】选项卡中还可以设置工具栏的外观属性，如外观、边框和样式等。在设置这些属性后，单击【应用】按钮，即可在窗体中预览到设置的效果。读者可自行试一试更改各外观属性后的效果。
　　在【通用】选项卡中设置的是有关整个工具栏的属性，要为工具栏建立按钮，需要在【按钮】选项卡中执行。
　　打开【按钮】选项卡，如图4.28所示。单击【插入按钮】按钮，通过在其中设置一些按钮的属性，即可在工具栏中建立一个按钮。重复插入按钮操作，可以为工具栏建立多个按钮。按钮的一些重要属性的含义如下：

7 l4 }) U$ O6 l　　
; o& a$ m+ j3 Y. }; S　　按钮就好象数组中的元素一样，在程序中可以通过它们的索引号来引用。
　　例如：
( e, |3 U6 s' a  H' `$ i( H　　Toolbarl.Buttons(1).Caption="打开"该语句是将索引号为1的按钮的标题设置为"打开".
: c% ?* z. F) K4 s4 H0 `+ J: G" P; f& n　　标题(Caption)属性用来设置要在按钮上显示的文本，如果不输入任何内容，则按钮上只显示图标，不显示文本。大多数工具栏中的按钮上都不显示文本。
　　关键字(Key)属性是指按钮的名称，在程序中也可以以关键字来引用按钮。
　　样式(Style)属性用来设置按钮的类型。表4.15中列出了该属性的取值及对应的按钮类型。
　　工具提示文本(ToolTipText)属性用来设置当鼠标停留在按钮上时，显示的工具提示。

会计考友

　　图像(Image)属性指定在按钮上显示的图片的索引号或关键字。其中图片的索引号与关键字是在图像列表控件的【属性页】对话框中指定的。
3 x# A8 L5 ~7 v0 J" ~( F& L
3 o* S" p/ i9 T9 ~) `' o$ Z　　
7 E$ e. A2 \9 o　　这里为工具栏建立3个按钮。它们的属性设置如表4.16所示，其他属性均采用默认设置。
9 I8 Y2 v. Z9 g' N; [
　　
* d- q3 i; U6 p) E2 U+ ?6 g　　到此，在窗体的工具栏控件上出现了3个按钮。运行该程序，将鼠标停留在某个按钮上，会显示出该按钮的工具提示文本。但是，单击按钮不会执行任何操作，这是因为还没有为该按钮编写事件过程。
1 y8 U/ x& h, g% @+ d' L/ A1 h　　本节将为上一节中所创建的工具栏编写代码，使按钮能执行一定的操作。
/ v. q4 }% I" X, Z% v4 K+ D　　在前面创建了工具栏的窗体中放置一个文本框，如图4.31所示。各对象的属性设置如表4.17所示。

　　
7 m5 u5 l1 G/ ~% T1 f% F4 D+ k/ V
5 V6 U7 K# a7 w2 O3 P! W　　
　　在运行模式下，每当用户单击工具栏中的按钮时，就会触发该工具栏的ButtonClick事件。因此，为工具栏编写代码其实就是编写它的ButtonClick事件过程。
5 y, }: M8 R& O1 u2 l' c, A　　双击工具栏，打开【代码】窗口，工具栏的ButtonClick事件过程的框架自动出现在【代码】窗口中，编写该过程如下：
　　Private Sub Toolbarl_ButtonClick(Byval Button As MSComctllib.Buton)
　　Select Case Button.Key
) P/ B4 x6 n% U8 l　　Case“Bopen”
　　Text1.Text=“文档打开成功!”
9 C$ X) w! U" }- c) v# g+ g　　Case“Bsave”
7 c2 l$ @* p" j% S4 O0 P( l　　Text1.Text=“文档保存完毕!”
  q. {* S! _7 a, ]　　Case“print”
　　Text1.Text=“正在打印文档···”
5 j3 F% D$ V" I　　End Select
8 q+ n' P. O. B- ]1 }　　End Sub
4 Z3 N$ x, b" [8 o　　在代码中，使用了Select Case语句来判断按钮的关键字。对于不同的按钮，单击后在文本框中显示不同的内容。
　　运行该程序，单击某按钮，在文本框就会显示出与该按钮相关的内容。