分类文摘004

VB 5.0下工具条的制作

工具条(Tool bar) 是Windows 环境下应用程序常用的界面元素。把菜单中常用的命令做成按钮安排在工具条中，配上适当的图标符号和文本提示，确实极大地方便了用户。以Microsoft Word 7.0 for Windows 95 的工具条为例，其中的内容和功能非常丰富。Word 7.0 工具条中不仅包含与文件操作等有关的常规图标按钮，还有设置字体字号等等的组合框(Combo box)。按钮之间可以分组，例如设置段落对齐方式的一组按钮，同组中的按钮每次只允许有一个被按下，按下一个按钮时，同组中其它按钮自动弹起。另外，Word 7.0 的工具条还有用户裁剪(Customize) 功能。用户在工具条上双击鼠标时，工具条弹出一个裁剪对话框，用户可以隐藏、显示以及重新排列工具条中的按钮。如果在我们自己开发的软件界面中加上这样的工具条，我们的软件就可以与商业软件相媲美了。

---- 在诸多Windows 应用程序开发平台中，Microsoft Visual BASIC 以易学易用、功能强大的优点特出独立，成为开发Windows 应用程序的首选平台之一。在VB 4.0 及以前的版本中，开发象Word 7.0 中的工具条还是颇费辛苦的。一般思路是在窗体(Form) 中安放一个图片框(PictureBox) 作为容器(Container)，再往其中加入图象(Image) 控件，用图象控件载入图标来模拟按钮。对多个按钮的控制要分别完成，管理较为复杂。在VB 5.0 中，系统提供了一个专门的工具条控件Toolbar。用Toolbar 来实现类似Word 7.0 中的工具条非常方便。

工具条控件Toolbar 简介 ---- 1. 在工具箱中加入Toolbar

---- 工具条控件Toolbar 不在VB 5.0 工具箱(Toolbox) 的常规标准控件之列，因此在首次安装VB 5.0 后，工具箱中并没有Toolbar。在工具箱中加入Toolbar 要通过Project 菜单中的Components 命令，该命令弹出一个选择安装组件的窗口。在Components 窗口的Controls 组中找到“Microsoft Windows Common Controls 5.0” 项，单击标记该项，然后单击“ 确定” 按钮，Toolbar 和另外一些控件就加入工具箱了。

---- 2. Toolbar 的功能

---- Toolbar 中可以加入按钮，每个按钮都可以载入自己的图象、设置标题(Caption)。还可以为每个按钮设置简短的提示字符串，程序运行时，当鼠标指针移到按钮上时，在指针附近会自动浮出提示字符串。在程序运行时，可以随时增加或删除按钮。Toolbar 为其中的按钮提供了分组功能，用户只需简单地设置一个按钮的Style 属性就能实现按钮之间的分组。Toolbar 同时还是一个容器类控件，可以在其中加入组合框等其它控件。Toolbar 的AllowCustomize 属性允许用户在程序运行时双击工具条对其中的内容进行裁剪。根据这些功能，用户就可以轻而易举地在自己开发的应用程序中加入类似Word 7.0 风格的工具条了。

Toolbar 的制作

---- Toolbar 的制作包括以下步骤：在窗体中加入Toolbar 控件；在Toolbar 中加入按钮；为按钮载入图象并设置其它属性。

---- 1. 在窗体中加入Toolbar 控件

---- 双击工具箱中的Toolbar，Toolbar 就自动加入窗体并放置在窗体客户区的顶端。如果要把Toolbar 放置在其它位置，可以在属性窗口中改变Toolbar 的Align 属性。Toolbar 的Align 属性中可供选择的有5 个值：

---- 0 - vbAlignNone，不对齐
---- 1 - vbAlignTop，对齐窗口客户区顶端
---- 2 - vbAlignBottom，对齐窗口客户区底端
---- 3 - vbAlignLeft，对齐窗口客户区左边
---- 4 - vbAlignRight，对齐窗口客户区右边

---- 2. 在Toolbar 中加入按钮

---- 用鼠标右键单击Toolbar，会弹出Toolbar 的属性菜单。单击菜单的最后一项“Properties”，会弹出Toolbar 的属性页(Property Pages) 窗口。在属性页窗口中可以设置控件的一些非常规属性。

---- 在Toolbar 属性页中选Buttons 组，其中的“Insert Button” 和“Remove Button” 两个按钮分别用于在Toolbar 中加入和删除按钮。Toolbar 控件的所有按钮构成一个按钮集合(Collection)，名为Buttons。在Toolbar 中加入和删除按钮实际上是对Toolbar 的Buttons 集合进行加入和删除元素操作。对于Toolbar 中各个按钮的访问，也是通过Buttons 集合进行的。用“Insert Button” 加入按钮后，可以在Toolbar 属性页Buttons 中设置新加入的按钮的属性。这些属性包括：索引(Index)、标题(Caption)、描述信息(Description)、关键字(Key)、初态(Value)、模式(Style)、宽度(Width)、提示信息(ToolTipText) 等。

---- (1) Index 和Key
---- Toolbar 中的按钮是通过集合Buttons 来访问的。集合中每个按钮都有唯一与之对应的标识，Index 和Key 就是与按钮一一对应的标识。Index 是整数类型的，类似于数组的下标。Key 是字符串类型的类似于对象的名字，但它与名字不同的是引用时必须加双引号，并且它中间可以包含任意的字符。按钮的Key 属性是可选的，可以为空。访问按钮时可以引用Index 和Key 二者之一。例如，在名为Toolbar1 的Toolbar 中加入按钮，其Index 为1，Key 设置为“1st button”。在程序中可以通过以下两种方式之一访问该按钮：

Toolbar1.Buttons(1)
或
Toolbar1.Buttons("1st button")

---- (2) Caption
---- Caption 属性对应按钮上显示的文本，与普通按钮的Caption 属性相同。

---- (3) ToolTipText 和Description
---- ToolTipText 和Description 都是字符串类型，用于设置按钮的提示文本和描述信息。设置了ToolTipText 后，程序启动运行后，当用户把鼠标指针移到按钮上时，ToolTipText 对应的文本字符串自动浮出。该属性用于在程序运行时提示用户按钮的功能。程序启动运行后，用户双击工具条对其中的内容进行裁剪时，对话窗中每个按钮旁边显示的是按钮的Description 属性。

---- (4) Style
---- Style 属性设置按钮的模式，不同模式的按钮具有不同的风格和作用。可供选择的Style 属性有以下5 种：

---- 0 - tbrDefault，一般按钮
---- 1 - tbrCheck，开关按钮
---- 2 - tbrButtonGroup，编组按钮
---- 3 - tbrSeparator，分隔按钮
---- 4 - tbrPlaceholder，占位按钮

---- 一般按钮与普通的按钮控件在操作风格上基本相同。开关按钮具有二值状态：按下和放开。编组按钮用于实现按钮之间的分组，相邻的编组按钮都属于同一组。编组按钮同时也是开关按钮，同组内至多只允许一个按钮处于按下状态。分隔按钮在Toolbar 中并不显示，而是把它左右的按钮分隔开来。Toolbar 中的按钮本来是紧挨着排列的，使用分隔按钮可以让同类或同组的按钮并列排放而与邻近的组分开。占位按钮在Toolbar 中也不显示，它仅仅起到占位的作用。在占位按钮处可以安放其它控件诸如组合框之类。占位按钮是唯一可以设置宽度(Width) 属性的按钮。

---- (5) Value
---- Value 属性设置按钮的按下和放开状态。该属性一般用于设置开关按钮和编组按钮的初态。

---- (6) Width
---- 在属性页的Buttons 组中可以看到，Width 属性后有一个Placeholder 的附加说明。只有当按钮的Style 设置为Placeholder 时，该属性才能被设置，其它情况下该属性被禁止。

---- 3. 为按钮载入图象

---- 工具条按钮的一个突出特点是包含形象的图象，用以提示按钮的功能。在Toolbar 中加入所需的按钮后，就可以为每个按钮载入图象了。Toolbar 按钮与普通的Image 和PictureBox 不同，它们没有Picture 属性。要给Toolbar 按钮载入图象需要借助于另一个控件ImageList。

---- ImageList 是在“Microsoft Windows Common Controls 5.0” 中与Toolbar 一并提供的控件。该控件不单独使用，而是专门为其它控件提供图象库。Toolbar 中按钮的图象就要从ImageList 的图象库中提取。

---- 为Toolbar 按钮载入图象的方法是：首先在Toolbar 所在的窗体中加入ImageList 控件，其次在ImageList 中加入图象，然后建立Toolbar 和ImageList 的关联关系，最后从ImageList 的图象库中选择图象载入Toolbar 的按钮。

---- (1) 在ImageList 中加入图象
---- 与Toolbar 控件类似，鼠标右键单击窗体中的ImageList 控件时，会弹出其属性菜单。选菜单的最后一项“Properties” 会弹出ImageList 的属性页窗口。在属性页窗口中选Images 组，在这里可以为ImageList 的图象库中加入图象，并为每个图象设置关键字属性。

---- 单击“Insert Picture” 按钮可以在图象库中插入图片。系统弹出一个选择图片(Select picture) 的窗口，从该窗口中可以选定一个或多个图象文件。单击“ 打开” 按钮，选定的图片就插入图象库了。ImageList 允许插入位图文件(.bmp) 和图标(.ico) 文件。

---- (2) 建立Toolbar 和ImageList 的关联关系
---- 打开Toolbar 的属性页窗口，在General 组中有一个标题为ImageList 的下拉式列表框。单击打开该列表框，其中列出了本窗体中所有的ImageList 控件。单击选定一个ImageList 控件，Toolbar 就与该ImageList 建立了关联关系。

---- (3) 为Toolbar 按钮载入图象
---- 建立好Toolbar 和ImageList 的关联关系后，Toolbar 属性页窗口的Buttons 组中Image 项就从禁止状态变为有效了。在Image 项的文本框中输入ImageList 图象库里某个图片的Index 值，该图片就被载入该按钮了。

Toolbar 的常用属性和方法

---- 设置好Toolbar 之后，有必要对其常用的属性和方法作一了解，以便在程序中对它进行控制。Toolbar 与其它控件类似的常用属性在此不作赘述。

---- 1. 常用属性

---- (1) ImageList
---- 该属性设置与Toolbar 相关联的ImageList 对象。

---- (2) AllowCustomize
---- 该属性设置是否允许用户在程序运行时对Toolbar 的内容进行裁剪。该属性的缺省值是True。

---- (3) ShowTips
---- 该属性决定程序运行过程中，当鼠标指针移到Toolbar 按钮上时，是否浮出该按钮的ToolTipText 文本提示。该属性的缺省值是True。

---- (4) ToolTipText
---- 该属性设置Toolbar 自己的文本提示字符串。Toolbar 的每个按钮可以有自己的ToolTipText，同时Toolbar 本身也可以有自己的ToolTipText。程序运行过程中，当鼠标指针移到Toolbar 按钮上时，如果Toolbar 和按钮都设置了ToolTipText，则两个提示字符串都会浮出。

---- 2. 常用方法

---- 对Toolbar 的控制主要是针对其中的按钮，Toolbar 中的按钮是作为一个名为Buttons 的集合对象供程序访问的。Buttons 的常用方法包括增加一个按钮(Add)、删除一个按钮(Remove) 和删除所有按钮(Clear)。

---- (1) Add
---- Add 方法的语法为：

---- Toolbar 控件名.Buttons.Add(index, key, caption, style, image)

---- 整型参数index 指定新增按钮的索引值，该索引值也决定了按钮在Toolbar 中的位置。index 参数可以省略( 注意，省略index 参数时其后的逗号要照写)，缺省情况下新增按钮加到Buttons 集合的最后。

---- 字符串型参数key 指定新增按钮的关键字，该参数可以省略。
---- 字符串型参数caption 指定新增按钮的标题，该参数可以省略。

---- 整型参数style 指定新增按钮的Style 属性，其合法取值有5 个，参见前面Style 属性的介绍。该参数可以省略，缺省时自动取0(tbrDefault)。

---- 参数image 指定给新增按钮载入的图象，图象必须是与该Toolbar 相关联的ImageList 控件图象库中的一个。image 参数可以是一个整数，对应ImageList 图象库中某个图片的Index 值，也可以是一个字符串，对应图片的关键字Key。

---- (2) Remove
---- Remove 方法的语法为：
---- Toolbar 控件名.Buttons.Remove 按钮的Index 值
---- 或
---- Toolbar 控件名.Buttons.Remove 按钮的Key 字符串

---- (3) Clear
---- Clear 方法的语法为：
---- Toolbar 控件名.Buttons.Clear

在程序中生成Toolbar

---- 以上从设计阶段(design time) 和程序角度介绍了Toolbar 的生成和使用。下面我们结合实例来看看如何为自己的应用程序添加功能强大、方便用户的工具条。

---- 下面的例子中，窗口工具条内有两个分别代表打开文件和文件存盘的按钮，另外还有一个设置窗口客户区颜色的组合框。为免去烦琐地介绍工具条的设置过程，在窗体制作时仅仅加入一个Toolbar 控件和一个ImageList 控件，另外在Toolbar 中加入一个组合框ComboBox。其它所有与Toolbar 的设置和控制有关的操作都在程序代码中实现，包括为ImageList1 加入图片库、建立Toolbar1 和ImageList1 的关联关系、在Toolbar1 中加入按钮并为每个按钮设置属性、对Combo1 进行初始化等等。下面给出窗体Form1 的程序代码。

Private Sub Form_Load()
    ' Create object variable for the ImageList.
    Dim imgX As ListImage

    ' Load pictures into the ImageList control.
    Set imgX = ImageList1.ListImages. _
    Add(, "open", LoadPicture("Graphics\bitmaps\tlbr_w95\open.bmp"))
    Set imgX = ImageList1.ListImages. _
    Add(, "save", LoadPicture("Graphics\bitmaps\tlbr_w95\save.bmp"))
    Toolbar1.ImageList = ImageList1

    ' Create object variable for the Toolbar.
    Dim btnX As Button

    ' Add button objects to Buttons collection using the
    ' Add method. After creating each button, set both
    ' Description and ToolTipText properties.
    Toolbar1.Buttons.Add , , , tbrSeparator
    Set btnX = Toolbar1.Buttons.Add(, "open", , tbrDefault, "open")
    btnX.ToolTipText = "Open File"
    btnX.Description = btnX.ToolTipText
    Set btnX = Toolbar1.Buttons.Add(, "save", , tbrDefault, "save")
    btnX.ToolTipText = "Save File"

    btnX.Description = btnX.ToolTipText
    Set btnX = Toolbar1.Buttons.Add(, , , tbrSeparator)

    ' The next button has the Placeholder style. A
     ' ComboBox control will be placed on top of this button.
    Set btnX = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder)
    btnX.Width = 1500 ' Placeholder width to accommodate a combobox.

    Show ' Show form to continue configuring ComboBox.

    ' Configure ComboBox control to be at same location as the
    ' Button object with the PlaceHolder style (key = "combo1").
    With Combo1
        .Width = Toolbar1.Buttons("combo1").Width
        .Top = Toolbar1.Buttons("combo1").Top
        .Left = Toolbar1.Buttons("combo1").Left
        .AddItem "Black" ' Add colors for text.
        .AddItem "Blue"
        .AddItem "Red"
        .ListIndex = 0
    End With
End Sub

Private Sub Form_Resize()
    ' Configure ComboBox control.

    With Combo1
        .Width = Toolbar1.Buttons("combo1").Width
        .Top = Toolbar1.Buttons("combo1").Top
        .Left = Toolbar1.Buttons("combo1").Left
    End With
End Sub

Private Sub toolbar1_ButtonClick(ByVal Button As Button)
    ' Use the Key property with the SelectCase statement to specify
    ' an action.
    Select Case Button.Key
    Case Is = "open"            ' Open file.
        MsgBox "Add code to open file here!"

    Case Is = "save"               ' Save file.
        MsgBox "Add code to save file here!"
    End Select
End Sub

Private Sub Combo1_Click()
    ' Change backcolor of form using the ComboBox.
    Select Case Combo1.ListIndex
    Case 0
        Form1.BackColor = vbBlack
    Case 1
        Form1.BackColor = vbBlue
    Case 2
        Form1.BackColor = vbRed
    End Select
End Sub