资源介绍
倒计时程序(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
- 上一篇: vc++著名的木马程序BO2000源代码
- 下一篇: 英文打字系统VB6.0源代码和大家分享