倒计时程序(VB6.0代码编写)

时间：2011-08-25 01:16:51
【文件属性】：

文件名称：倒计时程序(VB6.0代码编写)

文件大小：4KB

文件格式：RAR

更新时间：2011-08-25 01:16:51

倒计时程序(VB6.0代码编写)

倒计时程序(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勾月

立即下载

【文件预览】：
火箭发射倒计时
----火箭发射倒计时.exe(20KB)
----readme.txt(575B)

网友评论

  • 资源很好 谢谢
  • 如果有源代码会更好一些。
  • 这个不错，我已经用了
  • 没有源文件，对于初学者调试比较麻烦
  • 程序界面不错，但是没源代码
  • 程序可以运行，有源文件就更好
  • 程序可以运行，有源文件就更好了
  • 没有源文件，对于初学者调试比较麻烦
  • 可以使用，对我这个初学者帮助很大，谢谢！
  • 可以使用，已经调试成功！谢谢！

相关文章