圖像(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)檫沒(méi)有為該按鈕編寫事件過(guò)程。
本節(jié)將為上一節(jié)中所創(chuàng)建的工具欄編寫代碼,使按鈕能執(zhí)行一定的操作。
在前面創(chuàng)建了工具欄的窗體中放置一個(gè)文本框,如圖4.31所示。各對(duì)象的屬性設(shè)置如表4.17所示。
在運(yùn)行模式下,每當(dāng)用戶單擊工具欄中的按鈕時(shí),就會(huì)觸發(fā)該工具欄的ButtonClick事件。因此,為工具欄編寫代碼其實(shí)就是編寫它的ButtonClick事件過(guò)程。
雙擊工具欄,打開(kāi)【代碼】窗口,工具欄的ButtonClick事件過(guò)程的框架自動(dòng)出現(xiàn)在【代碼】窗口中,編寫該過(guò)程如下:
Private Sub Toolbarl_ButtonClick(Byval Button As MSComctllib.Buton)
Select Case Button.Key
Case“Bopen”
Text1.Text=“文檔打開(kāi)成功!”
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)蒙古 |