第11课：郭盛华课程_VB编程之Timer倒计时控件怎么用

主讲老师：郭盛华

 

Timer控件是一种通过引发Timer事件，可以有规律地隔一段时间执行一次代码的控件。

Dim N As Integer ‘定义N变量为数字
Private Sub Form_Load()
N = 10’默认N等于 10
Timer1.Interval = 1000 '设置频率时间1秒
Timer1.Enabled = True '开启
End Sub
Private Sub Timer1_Timer()
N = N - 1
If N > 0 Then
Label1.Caption = "倒计时为："& N
Else
Label1.Caption = "时间到"
Timer1.Enabled = False
End If
End Sub

 

具体请看****：微博@郭盛华老师