工具栏是许多基于Windows系统应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。

制作工具栏有两种方法：

一种方法是手工制作，即利用图形框和命令按钮；

另一种方法是通过组合使用ToolBar、ImageList控件制作工具栏。

 因为ToolBar、ImageList等控件不属于VB系统的标准控件，所以我们在使用之前必须先将其添加到VB工具箱中才能使用。

方法是：选择工程 | 部件| 菜单命令（或者直接用快捷键Ctrl +T），在弹出的“部件“对话框中选择"Microsoft Windows Common Controls 6.0”，将控件添加到工具箱。

使用ToolBar 控件和ImageList 控件建立工具栏主要包括以下步骤:

1. 在ImageList 控件中添加图像。

2. 建立ImageList 和ToolBar 控件的关联。

3. 在ToolBar控件中添加按钮。

4.在ButtonClick 和ButtonMenuClick 事件中用Select Case 语句对各按钮编程。

使用步骤

1.在ImageList 控件中添加图像

 由于工具箱按钮本身没有Picture 属性，不能直接在按钮上添加图片，它是通过ImageList 控件的图像库来获得工具栏按钮图片的。

ImageList 专门为其他控件提供图像，是一个图像容器控件。它包含一系列图像对象，每个图像对象都可以通过其索引(Index)或关键字(Key)被引用。

选定窗体上的ImageList 控件,在属性窗口单击“自定义”右边的...，打开“属性页”对话框，选择“图像”选项卡。

该选项卡中各项的含义如下:

1、索引:表示每个插入图像的编号，可在ToolBar 等控件中引用。

2、关键字：表示每个插入图形的标识名

3、插入图片：单击可插入图形，按照顺序依次排列在“”图像“”列表框中。

4、删除图片：选中列表框中某个图像，单击可以删除

5、图像数：插入的图像总数

2.建立ImageList和ToolBar控件的关联

    选定窗体上的ToolBar控件，在属性窗口单击“自定义”右边的      ，打开“属性页”对话框，选择“通用”选项卡，其中的“图像列表”下拉列表框用来与ImageList建立关联

3.在ToolBar控件中添加按钮

  单击“插入按钮”，并适当设置图像编号就可以为工具栏添加按钮。

4.在ButtonClick和ButtonMenuClick事件中编程 

  ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对应的按钮样式为“0～2”，后者对应样式为“5”的菜单按钮。

实例应用

我们根据上面的知识来设计一个可以控制文本框风格的工具程序。

代码如下：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Dim n As Integer
      n = Button.Index
      Select Case n
      Case 1
            Text1.FontBold = Button.Value
      Case 2
            Text1.FontItalic = Button.Value
      Case 3
            Text1.FontUnderline = Button.Value
      End Select
End Sub