主讲老师:郭盛华
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
来源:CSDN
作者:郭盛华
链接:https://blog.csdn.net/qq_42257049/article/details/103669703