5.2.2 多功能按鈕
通常,每個(gè)按鈕都有一個(gè)固定的標(biāo)題(Caption)和一個(gè)特定的功能,用戶也可以設(shè)計(jì)出多功能按鈕。單擊這樣的按鈕,按鈕的名稱(chēng)會(huì)發(fā)生變化,并且會(huì)執(zhí)行與按鈕標(biāo)題相應(yīng)的操作。
實(shí)例5.3多功能按鈕。
在該程序中,窗體上只有一個(gè)按鈕,單擊該按鈕,按鈕的標(biāo)題會(huì)在"顯示日期"與"顯示時(shí)間"間切換,并且在窗體中將顯示出與當(dāng)前按鈕標(biāo)題相應(yīng)的內(nèi)容。
在窗體上放置一個(gè)標(biāo)簽控件和一個(gè)按鈕控件,其中各對(duì)象的屬性設(shè)置如表5.5所示。
雙擊【顯示日期】按鈕,打開(kāi)【代碼】窗口,將下列代碼添加到Commandl_Click事件過(guò)程中:
Private Sub Command1_Click()
If Commandl.Caption-“顯示日期”Then
Labell.Caption=Date
Command1.Caption=“顯示時(shí)間”
Else
Labell.Caption =Time
Command1.Caption=“顯示日期”
End if
End Sub
在該段代碼中,使用了一個(gè)If語(yǔ)句來(lái)判斷當(dāng)前按鈕的標(biāo)題,然后做出相應(yīng)的操作。
運(yùn)行該程序,單擊【顯示日期】按鈕,則在標(biāo)簽中顯示當(dāng)前的系統(tǒng)日期,并將按鈕的標(biāo)題改變?yōu)?顯示時(shí)間",如圖5.9所示;再次單擊按鈕。則在標(biāo)簽中顯示當(dāng)前的系統(tǒng)時(shí)間,并且按鈕的標(biāo)題恢復(fù)為"顯示日期",如圖5.10所示。這樣,通過(guò)一個(gè)按鈕就可以循環(huán)顯示當(dāng)前系統(tǒng)的時(shí)間與日期了。
2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |