2011年度计算机等级考试二级VB复习指导(28)

会计考友

　5.2.4 图片按钮　　在Windows程序界面中，标准的按钮形式是立体的长方形，在其上显示文本提示信息，表明按钮的功能。为了使用户界面更加生动，一些按钮上不是用文字，而是用图片来表明按钮的功能，如按钮的功能是保存，则在按钮上显示一个磁盘图片。
8 g6 N" r3 k- b( x　　在VB中，如果将按钮控件的Style属性的值设置为1,就可以通过Picture属性来设置要在按钮上显示的图片，通过DownPicture属性设置按钮被按下时显示的图片，通过DisablePicture属性设置按钮无效时显示的图片。
　　实例5.5图片按钮。
　　在该程序中，按钮上显示有图片，形象地说明了该按钮的功能。并且，按钮上的图片还会根据用户的操作，做出相应的变化。
　　在窗体上放置一个标签控件和两个按钮控件，如图5.13所示，其中各对象的属性设置如表5.7所示。
0 D/ m3 c- t7 W6 r7 k
  m# l' x9 e* o$ s" a　　

　　
7 n0 c3 h3 Q. E7 K2 J8 D　　提示：在安装VB时，如呆选择了安装图形选项，则在VB安装目录下的\Common\Graphics目录将有大量的位图文件、元文件以及图标文件等。在需安各种图形或图标时，可以在那里找到。

会计考友

　　双击第一个按钮控件，打开【代码】窗口，将下列代码添加到ComLight_Click事件过程中：
% R3 b. l7 @0 J3 d( E" c- `　　Private Sub ComLight_Click()
' h% w+ ^0 N6 Y) r' }* t  t5 m( l　　If ComLight.Caption=“关 灯” Then
　　ComLight.Picture=LoadPicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Lighton.ico“
+ }0 Q& B! d" M( r, k　　ComFace.picture=Loadpicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Face04.ico“
2 m1 ?, H4 P, `8 `7 t1 E　　ComLight.Caption=“开 灯”
/ [3 W) _; D0 E0 d% B) I/ b1 o　　Else
　　ComLiht.Picture=LoadPicture((“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Lightoff.ico“)
4 |* W$ Y5 s6 j- V　　ComFace.picture=Loadpicture(“d:Microsoft visual studi o\Common\Graphices\Tcons\Misc\Face02.ico“)
　　ComLight.Caption=“关 灯”
　　End If
# L8 s  [  i) q8 `5 I% f: Q2 l- a　　End Sub
5 s( r! z* r# s* F2 d8 d+ k% c　　【关灯】按钮是一个多功能按钮，与实例5.3一样，使用了If语句来判断按钮当前的标题。在程序运行时，设置对象的Picture属性的格式如下：
　　对象名Picture = LoadPicture("文件名")
4 i$ B5 u) [4 M2 E　　注意：在程序运行时，不能直接将文件名赋予控件的Picture属性，而要使用LoadPicture()函数。
. ?* Y% p- q" T. L2 z　　将下列代码添加到ComFace_Click事件过程中：
　　Private Sub ComFace_Click()
1 X: t- W6 S- i# z( W　　If ComLight.Caption=“关 灯” Then
! p! k9 `0 s6 q3 E7 O7 H5 [' D　　Labell.Caption=“我 高 兴!”
　　Else
$ k' T* n! D- G. [! x　　Labell.Caption=“我 生 气!”
　　End If
　　End Sub
: g# E* t- [8 M* g　　运行该程序，单击【关灯】按钮，则该按钮上的图片变成一个发亮的灯泡，提示文本也由"关灯"变成了"开灯",且另一个按钮上的笑脸图片变成了哭脸图片。单击【哭脸】按钮，则在标签中显示"我生气!",如图5.14所示。再次单击【开灯】按钮，则该按钮'上的图片恢复为一个关灭的灯泡，提示文本"开灯"变成了"关灯",且另一个按钮上的哭脸图片恢复为笑脸图片。单击【笑脸】按钮，则在标签中显示"我高兴!",如图 5.15所示。
1 Q- W' i( ?. S$ [# T