倒计时程序(VB6.0代码编写)
倒计时程序是一个简单的倒计时程序。从10秒开始。
Dim TimerCount, OnTimer
Dim i As Integer
Private Sub Command1_Click()
Me.Caption = "发射装置已启动-QQ223857666勾月"
Timer1.Enabled = True
OnTimer = Time
TimerCount = DateAdd("s", "11", OnTimer)
End Sub
Private Sub Timer1_Timer()
LabTimer.Caption = DateDiff("s", Time, TimerCount)
If LabTimer.Caption = 0 Then
Timer1.Enabled = False
Me.Caption = "火箭已发射-QQ223857666勾月"
Else
End If
End Sub
QQ223857666勾月
- 1
- 2
前往页