圖像(Image)屬性指定在按鈕上顯示的圖片的索引號或關(guān)鍵字。其中圖片的索引號與關(guān)鍵字是在圖像列表控件的【屬性頁】對話框中指定的。
這里為工具欄建立3個按鈕。它們的屬性設(shè)置如表4.16所示,其他屬性均采用默認(rèn)設(shè)置。
到此,在窗體的工具欄控件上出現(xiàn)了3個按鈕。運(yùn)行該程序,將鼠標(biāo)停留在某個按鈕上,會顯示出該按鈕的工具提示文本。但是,單擊按鈕不會執(zhí)行任何操作,這是因?yàn)檫沒有為該按鈕編寫事件過程。
本節(jié)將為上一節(jié)中所創(chuàng)建的工具欄編寫代碼,使按鈕能執(zhí)行一定的操作。
在前面創(chuàng)建了工具欄的窗體中放置一個文本框,如圖4.31所示。各對象的屬性設(shè)置如表4.17所示。
在運(yùn)行模式下,每當(dāng)用戶單擊工具欄中的按鈕時,就會觸發(fā)該工具欄的ButtonClick事件。因此,為工具欄編寫代碼其實(shí)就是編寫它的ButtonClick事件過程。
雙擊工具欄,打開【代碼】窗口,工具欄的ButtonClick事件過程的框架自動出現(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語句來判斷按鈕的關(guān)鍵字。對于不同的按鈕,單擊后在文本框中顯示不同的內(nèi)容。
運(yùn)行該程序,單擊某按鈕,在文本框就會顯示出與該按鈕相關(guān)的內(nèi)容。
相關(guān)推薦:2011計算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |