关闭后还可以倒计时?
Dim a As Long
Private Sub Form_Load()
a = 100
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
a = a - 1
If a = 0 Then a = 100
Text1.Text = a
End Sub
不建议使用1楼的timer 因为vb里面timer计时是很不准确的 跟计算机运行情况有很大关联
如果你够狠就上api计时
如果简单点 你可以用now 或者去网络上获取现在的时间 然后与10月1日 之间进行一系列计算来得到 然后用一个timer来 实现 没多少毫秒更新一次 就可以了 这个对timer的要求就很低了 主要电脑能跑就可以