1.1.1 引例

【例1-1】屏幕上有一个时间按钮，一个日期按钮，当按下不同的按钮时，将在标签显示相应的内容，同时，时间还可以向时钟一样不停地变化，程序中还可以改变字体颜色。如图1-1所示。

图1-1　【例1-1】程序运行界面

（1）设计用户界面并设置控件属性。根据题目要求，利用左边工具箱中的Label（标签）、CommandButton（命令按钮）、Timer（定时器）、OptionButton（单选按钮）和Frame（框架）等控件图标，在中间的窗体上建立控件对象，如图1-2所示，名字分别是Label1、Command1、Command2、Timer1、Option1、Option2、Option3和Frame1，并修改属性。本例中各控件对象的有关属性设置参照表1-1。

图1-2　【例1-1】程序设计界面

表1-1　【例1-1】对象属性设置

（2）编写事件过程。在代码窗口编写如下所示的程序代码。

Private Sub Command1_Click()     '显示日期 
  Label1.Caption = Date 
  Timer1.Enabled = False 
End Sub 
Private Sub Command2_Click()     '显示时间 
  Label1.Caption = Time 
  Timer1.Enabled = True 
End Sub 
Private Sub Form_Load()         '程序刚启动标签里显示时间 
  Form1.Caption = "时钟与日期"  '窗体的标题栏显示文字 
  Label1.Caption = Time 
  Label1.FontSize = 20          '改变标签字体大小 
End Sub 
Private Sub Option1_Click()     '字体为红色 
  Label1.ForeColor = vbRed 
End Sub 
Private Sub Option2_Click()     '字体为蓝色 
  Label1.ForeColor = vbBlue 
End Sub 
Private Sub Option3_Click()     '字体为黑色 
  Label1.ForeColor = vbBlack 
End Sub 
Private Sub Timer1_Timer()      '每到一秒，引发该事件 
  Label1.Caption = Time         '时钟动态显示在标签里         
End Sub

上述程序并不要求初学者能完全理解，但希望读者对Visual Basic有个初步的印象。该程序中的许多内容将会在以后的章节中逐步介绍。