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

会计考友

　　5.2.2 多功能按钮
/ `0 f  m! |- T　　通常，每个按钮都有一个固定的标题(Caption)和一个特定的功能，用户也可以设计出多功能按钮。单击这样的按钮，按钮的名称会发生变化，并且会执行与按钮标题相应的操作。
4 y& l! O' z3 ?7 h" d9 }. E- Y7 z: E　　实例5.3多功能按钮。
! u4 l1 v8 Z; z　　在该程序中，窗体上只有一个按钮，单击该按钮，按钮的标题会在"显示日期"与"显示时间"间切换，并且在窗体中将显示出与当前按钮标题相应的内容。
& t0 ^  w! r; y7 ~. s　　在窗体上放置一个标签控件和一个按钮控件，其中各对象的属性设置如表5.5所示。
9 H2 w$ h' Z& l0 A
　　
　　双击【显示日期】按钮，打开【代码】窗口，将下列代码添加到Commandl_Click事件过程中：
　　Private Sub Command1_Click()
　　If Commandl.Caption-“显示日期”Then
　　Labell.Caption=Date
　　Command1.Caption=“显示时间”
　　Else
8 Y/ j, Y" G9 x3 [# L# H$ ?　　Labell.Caption =Time
　　Command1.Caption=“显示日期”
　　End if
　　End Sub
　　在该段代码中，使用了一个If语句来判断当前按钮的标题，然后做出相应的操作。
　　运行该程序，单击【显示日期】按钮，则在标签中显示当前的系统日期，并将按钮的标题改变为"显示时间",如图5.9所示;再次单击按钮。则在标签中显示当前的系统时间，并且按钮的标题恢复为"显示日期",如图5.10所示。这样，通过一个按钮就可以循环显示当前系统的时间与日期了。