请问怎样倒计时？就是你设置一个总分钟，当前时间减开始时间。

Question

请问怎样倒计时？就是你设置一个总分钟，当前时间减开始时间。

Answer 1

用一個Timer控件，在Timer事件里加個累計變量，當累計變量到預設值后將Timer設為False即可。很簡單,例如要設5分鐘
Dim intCount As Long
const min=5
Private Sub Form_Load()
   timer1.Interval=1000 
   intCount = min * 60
End Sub
Private Sub Timer1_Timer()
    If intCount = 0 Then
        dosomething
        Timer1.Enabled = False
    Else
        intCount = intCount - 1
    End If
End Sub

Answer 2

如果我不用timer呢？我获得系统时间可不可以？

Answer 3

不用Timer的话我就不知道怎么样才能很准确的获取时间间隔了

Answer 4

当然可以了!不过也要用TIMER触发(显示具体的时间),如果不显示具体时间就不用TIMER了!

Answer 5

当然可以了!不过也要用TIMER触发(显示具体的时间),如果不显示具体时间就不用TIMER了!