下载地址:
下载地址1(本站为飞网专业下载站,域名:down.cfei.net)
资源简介:
倒计时程序(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勾月
飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。