第11课：VB编程之Timer倒计时控件怎么用

admin

主讲老师：郭盛华

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

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

复制代码

具体请看视频教程：