圖像(Image)屬性指定在按鈕上顯示的圖片的索引號(hào)或關(guān)鍵字。其中圖片的索引號(hào)與關(guān)鍵字是在圖像列表控件的【屬性頁(yè)】對(duì)話框中指定的。
這里為工具欄建立3個(gè)按鈕。它們的屬性設(shè)置如表4.16所示，其他屬性均采用默認(rèn)設(shè)置。
到此，在窗體的工具欄控件上出現(xiàn)了3個(gè)按鈕。運(yùn)行該程序，將鼠標(biāo)停留在某個(gè)按鈕上，會(huì)顯示出該按鈕的工具提示文本。但是，單擊按鈕不會(huì)執(zhí)行任何操作，這是因?yàn)檫�沒有為該按鈕編寫事件過程。
本節(jié)將為上一節(jié)中所創(chuàng)建的工具欄編寫代碼，使按鈕能執(zhí)行一定的操作。
在前面創(chuàng)建了工具欄的窗體中放置一個(gè)文本框，如圖4.31所示。各對(duì)象的屬性設(shè)置如表4.17所示。
在運(yùn)行模式下，每當(dāng)用戶單擊工具欄中的按鈕時(shí)，就會(huì)觸發(fā)該工具欄的ButtonClick事件。因此，為工具欄編寫代碼其實(shí)就是編寫它的ButtonClick事件過程。
雙擊工具欄，打開【代碼】窗口，工具欄的ButtonClick事件過程的框架自動(dòng)出現(xiàn)在【代碼】窗口中，編寫該過程如下：
Private Sub Toolbarl_ButtonClick(Byval Button As MSComctllib.Buton)
Select Case Button.Key
Case“Bopen”
Text1.Text=“文檔打開成功!”
Case“Bsave”
Text1.Text=“文檔保存完畢!”
Case“print”
Text1.Text=“正在打印文檔···”
End Select
End Sub
在代碼中，使用了Select Case語(yǔ)句來(lái)判斷按鈕的關(guān)鍵字。對(duì)于不同的按鈕，單擊后在文本框中顯示不同的內(nèi)容。
運(yùn)行該程序，單擊某按鈕，在文本框就會(huì)顯示出與該按鈕相關(guān)的內(nèi)容。
相關(guān)推薦：2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
