雙擊第一個(gè)按鈕控件,打開(kāi)【代碼】窗口,將下列代碼添加到ComLight_Click事件過(guò)程中:
Private Sub ComLight_Click()
If ComLight.Caption=“關(guān) 燈” Then
ComLight.Picture=LoadPicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Lighton.ico“
ComFace.picture=Loadpicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Face04.ico“
ComLight.Caption=“開(kāi) 燈”
Else
ComLiht.Picture=LoadPicture((“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Lightoff.ico“)
ComFace.picture=Loadpicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Face02.ico“)
ComLight.Caption=“關(guān) 燈”
End If
End Sub
【關(guān)燈】按鈕是一個(gè)多功能按鈕,與實(shí)例5.3一樣,使用了If語(yǔ)句來(lái)判斷按鈕當(dāng)前的標(biāo)題。在程序運(yùn)行時(shí),設(shè)置對(duì)象的Picture屬性的格式如下:
對(duì)象名Picture = LoadPicture("文件名")
注意:在程序運(yùn)行時(shí),不能直接將文件名賦予控件的Picture屬性,而要使用LoadPicture()函數(shù)。
將下列代碼添加到ComFace_Click事件過(guò)程中:
Private Sub ComFace_Click()
If ComLight.Caption=“關(guān) 燈” Then
Labell.Caption=“我 高 興!”
Else
Labell.Caption=“我 生 氣!”
End If
End Sub
運(yùn)行該程序,單擊【關(guān)燈】按鈕,則該按鈕上的圖片變成一個(gè)發(fā)亮的燈泡,提示文本也由"關(guān)燈"變成了"開(kāi)燈",且另一個(gè)按鈕上的笑臉圖片變成了哭臉圖片。單擊【哭臉】按鈕,則在標(biāo)簽中顯示"我生氣!",如圖5.14所示。再次單擊【開(kāi)燈】按鈕,則該按鈕'上的圖片恢復(fù)為一個(gè)關(guān)滅的燈泡,提示文本"開(kāi)燈"變成了"關(guān)燈",且另一個(gè)按鈕上的哭臉圖片恢復(fù)為笑臉圖片。單擊【笑臉】按鈕,則在標(biāo)簽中顯示"我高興!",如圖 5.15所示。
2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |