六、⼯具栏的设计
⼯具栏（也称为发条或者控制栏）已经成为许多基于Windows的应⽤程序的标准功能。⼯具栏提供了对于应⽤程序中最常⽤的菜单命令的快速访问。
可以使⽤ToolBar控件来轻松的创建⼯具栏，也可以使⽤应⽤程序向导来创建⼯具栏，⽅法更加简便。
1、利⽤应⽤程序向导创建⼯具栏
应⽤程序向导是VB6.0为⽤户提供的⼀项功能，通过应⽤程序向导⽤户可以很快设计出⼀个标准Windows程序的框架，其中包括窗体、菜单、⼯具栏、多⽂档、状态栏、对话框、滚动条等等。设计过程是在对话中完成，设计完成后形成应⽤程序的界⾯和框架。
创建⼀个标准的应⽤程序框架步骤如下：
在"新建⼯程"对话框中选中"VB应⽤程序向导"后单击[打开]命令按钮确认。
按向导导航单击⼀次[下⼀步]按钮进⼊"界⾯类型"对话框，选中"多⽂档界⾯"，为⼯程取名为"MyApplication"，单击[下⼀步]确认。
进⼊"菜单"对话框，可以进⾏菜单设计，设计完成单击[下⼀步]按钮确认，进⼊"⾃定义⼯具栏"对话框。
在"⾃定义⼯具栏"对话框中可以⾃⾏设计⼯具栏，设计完成单击[完成]确认。
2、使⽤ToolBar控件创建⼯具栏
使⽤ToolBar控件创建⼯具栏也是⾮常简单的⼯作，基本的属性设置可以通过对话框完成。给⽰例Mymenu设计⼀个具有四个⼯具按钮的⼯具栏，分别对应菜单中的"新建"、"打开"、"粗体"、"斜体"等四个菜单项，并完成相应的功能。
⾸先从"部件"对话框中选中Microsoft Windows Common Controls6.0，确认后则ToolBar控件添加到⼯具箱中。
将ToolBar控件添加到窗体上。
⽤⿏标右键点击窗体上的ToolBar对象，在弹出的快捷菜单上单击[属性]选项，打开"属性页"对话框，选择"按钮"标签，单击[插⼊按钮]，插⼊五个⼯具按钮，索引分别为1，2，3，4，5。
在属性页上设置⼯具按钮的属性，各⼯具按钮的设计属性值如下表：
索引值标题样式
1 New thrDefault
vb程序设计是啥
2 Open thrDefault
3 thrSeparator（分隔符）
4 B thrCheck
5 I thrCheck
关于“样式”的说明：
值常数按钮说明
0 tbrDefault 普通按钮按下按钮后恢复原状，如“新建”按钮
1 tbrCheck 开关按钮按下按钮后保持按下状态，如“加粗”等按钮
2 tbrButtonGroup 编组按钮在⼀组按钮中只能有⼀个有效，如对齐⽅式按钮
3 tbrSepatator 分隔按钮将左右按钮分隔开
4 tbrPlaceholder 占位按钮⽤来安放其它按钮，可以设置其宽度（width）
5 tbrdropdown 菜单按钮具有下拉菜单，如Word中的“字符缩放”按钮
⽤⿏标左键双击⼯具栏对象，编写Click事件响应代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
mnuNew_Click
Case 2
mnuOpen_Click
Case 4
mnuBold_Click
Case 5
mnuItalic_Click
End Select
End Sub
--------------------------------------------------------------------------------
Private Sub mnuBold_Click()
mnuBold.Checked = Not mnuBold.Checked
Text1.FontBold = mnuBold.Checked
End Sub
--------------------------------------------------------------------------------
Private Sub mnufotesize_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontSize = 20
Case 1
Text1.FontSize = 30
End Select
End Sub
--------------------------------------------------------------------------------
Private Sub mnuItalic_Click()
mnuItalic.Checked = Not mnuItalic.Checked
Text1.FontItalic = mnuItalic.Checked
End Sub
-
-------------------------------------------------------------------------------
Private Sub mnuNew_Click()
Form1.Caption = "新⽂件"
Text1.Visible = True
Text1.Text = ""
End Sub
--------------------------------------------------------------------------------
Private Sub mnuOpen_Click()
Form1.Caption = "⽂件"
Text1.Visible = True
End Sub
保存⼯程运⾏程序。
[程序演⽰] [程序下载]
3、利⽤ImageList控件在⼯具按钮上显⽰图像
在创建ToolBar控件之前，应创建⼀个ImageList控件并添加你想要的图像。
ImageList控件
ImageList 控件包含 ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被引⽤。ImageList 控件不能独⽴使⽤，只是作为⼀个便于向其它控件提供图象的资料中⼼。如⼯具栏控件（ToolBar）中的图像就是从ImageList 控件中获取的。