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

　　运行该程序，单击【关灯】按钮，则该按钮上的图片变成一个发亮的灯泡，提示文本也由"关灯"变成了"开灯",且另一个按钮上的笑脸图片变成了哭脸图片。单击【哭脸】按钮，则在标签中显示"我生气!",如图5.14所示。再次单击【开灯】按钮，则该按钮'上的图片恢复为一个关灭的灯泡，提示文本"开灯"变成了"关灯",且另一个按钮上的哭脸图片恢复为笑脸图片。单击【笑脸】按钮，则在标签中显示"我高兴!",如图 5.15所示。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总

　　2011年上半年计算机等级考试报名时间汇总