2011年度計算機等級考試二級VB復習指導(28)

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

　　Private Sub ComLight_Click()

　　If ComLight.Caption=“關 燈” 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=“關 燈”

　　End If

　　End Sub

　　【關燈】按鈕是一個多功能按鈕，與實例5.3一樣，使用了If語句來判斷按鈕當前的標題。在程序運行時，設置對象的Picture屬性的格式如下：

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

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

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

　　Private Sub ComFace_Click()

　　If ComLight.Caption=“關 燈” Then

　　Labell.Caption=“我 高 興!”

　　Else

　　Labell.Caption=“我 生 氣!”

　　End If

　　End Sub

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

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

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

　　2011年計算機等級考試二級VB復習指導匯總

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