雙擊第一個按鈕控件，打開【代碼】窗口，將下列代碼添加到ComLight_Click事件過程中：

　　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=“開 燈”

　　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)燈】按鈕是一個多功能按鈕，與實例5.3一樣，使用了If語句來判斷按鈕當前的標題。在程序運行時，設(shè)置對象的Picture屬性的格式如下：

　　對象名Picture = LoadPicture("文件名")

　　注意：在程序運行時，不能直接將文件名賦予控件的Picture屬性，而要使用LoadPicture()函數(shù)。

　　將下列代碼添加到ComFace_Click事件過程中：

　　Private Sub ComFace_Click()

　　If ComLight.Caption=“關(guān) 燈” Then

　　Labell.Caption=“我 高 興!”

　　Else

　　Labell.Caption=“我 生 氣!”

　　End If

　　End Sub

　　運行該程序，單擊【關(guān)燈】按鈕，則該按鈕上的圖片變成一個發(fā)亮的燈泡，提示文本也由"關(guān)燈"變成了"開燈",且另一個按鈕上的笑臉圖片變成了哭臉圖片。單擊【哭臉】按鈕，則在標簽中顯示"我生氣!",如圖5.14所示。再次單擊【開燈】按鈕，則該按鈕'上的圖片恢復(fù)為一個關(guān)滅的燈泡，提示文本"開燈"變成了"關(guān)燈",且另一個按鈕上的哭臉圖片恢復(fù)為笑臉圖片。單擊【笑臉】按鈕，則在標簽中顯示"我高興!",如圖 5.15所示。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習(xí)題匯總

　　2011年計算機等級考試二級VB復(fù)習(xí)指導(dǎo)匯總

　　2011年上半年計算機等級考試報名時間匯總