六、工具欄的設計
工具欄（也稱為發(fā)條或者控制欄）已經(jīng)成為許多基于Windows的應用程序的標準功能。工具欄提供了對于應用程序中最常用的菜單命令的快速訪問。
可以使用ToolBar控件來輕松的創(chuàng)建工具欄，也可以使用應用程序向導來創(chuàng)建工具欄，方法更加簡便。
1、利用應用程序向導創(chuàng)建工具欄
應用程序向導是VB6.0為用戶提供的一項功能，通過應用程序向導用戶可以很快設計出一個標準Windows程序的框架，其中包括窗體、菜單、工具欄、多文檔、狀態(tài)欄、對話框、滾動條等等。設計過程是在對話中完成，設計完成后形成應用程序的界面和框架。
創(chuàng)建一個標準的應用程序框架步驟如下：
在"新建工程"對話框中選中"VB應用程序向導"后單擊[打開]命令按鈕確認。
按向導導航單擊一次[下一步]按鈕進入"界面類型"對話框，選中"多文檔界面"，為工程取名為"MyApplication",單擊[下一步]確認。
進入"菜單"對話框，可以進行菜單設計，設計完成單擊[下一步]按鈕確認，進入"自定義工具欄"對話框。
在"自定義工具欄"對話框中可以自行設計工具欄，設計完成單擊[完成]確認。
2、使用ToolBar控件創(chuàng)建工具欄
使用ToolBar控件創(chuàng)建工具欄也是非常簡單的工作，基本的屬性設置可以通過對話框完成。給示例Mymenu設計一個具有四個工具按鈕的工具欄，分別對應菜單中的"新建"、"打開"、"粗體"、"斜體"等四個菜單項，并完成相應的功能。
首先從"部件"對話框中選中Microsoft Windows Common Controls6.0，確認后則ToolBar控件添加到工具箱中。
將ToolBar控件添加到窗體上。
用鼠標右鍵點擊窗體上的ToolBar對象，在彈出的快捷菜單上單擊[屬性]選項，打開"屬性頁"對話框 ，選擇"按鈕"標簽，單擊[插入按鈕]，插入五個工具按鈕，索引分別為1，2，3，4，5。
在屬性頁上設置工具按鈕的屬性，各工具按鈕的設計屬性值如下表：
索引值 標題 樣式
1 New thrDefault
2 Open thrDefault
3 thrSeparator（分隔符）
4 B thrCheck
5 I thrCheck
關于“樣式”的說明：
值 常數(shù) 按鈕 說明
0 tbrDefault 普通按鈕 按下按鈕后恢復原狀，如“新建”按鈕
1 tbrCheck 開關按鈕 按下按鈕后保持按下狀態(tài)，如“加粗”等按鈕
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控件在工具按鈕上顯示圖像
在創(chuàng)建ToolBar控件之前，應創(chuàng)建一個ImageList控件并添加你想要的圖像。
ImageList控件
ImageList 控件包含 ListImage 對象的集合，該集合中的每個對象都可以通過其索引或關鍵字被引用。ImageList 控件不能獨立使用，只是作為一個便于向其它控件提供圖象的資料中心。如工具欄控件（ToolBar）中的圖像就是從ImageList 控件中獲取的。
工具欄（也稱為發(fā)條或者控制欄）已經(jīng)成為許多基于Windows的應用程序的標準功能。工具欄提供了對于應用程序中最常用的菜單命令的快速訪問。
可以使用ToolBar控件來輕松的創(chuàng)建工具欄，也可以使用應用程序向導來創(chuàng)建工具欄，方法更加簡便。
1、利用應用程序向導創(chuàng)建工具欄
應用程序向導是VB6.0為用戶提供的一項功能，通過應用程序向導用戶可以很快設計出一個標準Windows程序的框架，其中包括窗體、菜單、工具欄、多文檔、狀態(tài)欄、對話框、滾動條等等。設計過程是在對話中完成，設計完成后形成應用程序的界面和框架。
創(chuàng)建一個標準的應用程序框架步驟如下：
在"新建工程"對話框中選中"VB應用程序向導"后單擊[打開]命令按鈕確認。
按向導導航單擊一次[下一步]按鈕進入"界面類型"對話框，選中"多文檔界面"，為工程取名為"MyApplication",單擊[下一步]確認。
進入"菜單"對話框，可以進行菜單設計，設計完成單擊[下一步]按鈕確認，進入"自定義工具欄"對話框。
在"自定義工具欄"對話框中可以自行設計工具欄，設計完成單擊[完成]確認。
2、使用ToolBar控件創(chuàng)建工具欄
使用ToolBar控件創(chuàng)建工具欄也是非常簡單的工作，基本的屬性設置可以通過對話框完成。給示例Mymenu設計一個具有四個工具按鈕的工具欄，分別對應菜單中的"新建"、"打開"、"粗體"、"斜體"等四個菜單項，并完成相應的功能。
首先從"部件"對話框中選中Microsoft Windows Common Controls6.0，確認后則ToolBar控件添加到工具箱中。
將ToolBar控件添加到窗體上。
用鼠標右鍵點擊窗體上的ToolBar對象，在彈出的快捷菜單上單擊[屬性]選項，打開"屬性頁"對話框 ，選擇"按鈕"標簽，單擊[插入按鈕]，插入五個工具按鈕，索引分別為1，2，3，4，5。
在屬性頁上設置工具按鈕的屬性，各工具按鈕的設計屬性值如下表：
索引值 標題 樣式
1 New thrDefault
2 Open thrDefault
3 thrSeparator（分隔符）
4 B thrCheck
5 I thrCheck
關于“樣式”的說明：
值 常數(shù) 按鈕 說明
0 tbrDefault 普通按鈕 按下按鈕后恢復原狀，如“新建”按鈕
1 tbrCheck 開關按鈕 按下按鈕后保持按下狀態(tài)，如“加粗”等按鈕
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控件在工具按鈕上顯示圖像
在創(chuàng)建ToolBar控件之前，應創(chuàng)建一個ImageList控件并添加你想要的圖像。
ImageList控件
ImageList 控件包含 ListImage 對象的集合，該集合中的每個對象都可以通過其索引或關鍵字被引用。ImageList 控件不能獨立使用，只是作為一個便于向其它控件提供圖象的資料中心。如工具欄控件（ToolBar）中的圖像就是從ImageList 控件中獲取的。