VB 倒计时

时间：2014-12-09 09:41:38
【文件属性】：
文件名称：VB 倒计时
文件大小：10KB
文件格式：ZIP
更新时间：2014-12-09 09:41:38
VB 倒计时 VB 源代码 倒计时程序 Private Sub Timer1_Timer() If Time - t > 1 / 24 / 3600 Then iTime = iTime - CDate("00:00:01") Label3 = Right(CStr(iTime), 8) If Label3 = "00:30" Then Label1.ForeColor = vbRed If Label3 = "00:00" Then Timer1.Interval = 0 CreateObject("wscript.shell").run "wmplayer.exe C:\WINDOWS\Media\flourish.mid", 0 '0为后台运行 End If t = Time End If End Sub
立即下载

【文件预览】：
倒计时1
----DJS3.ico(3KB)
----定时.exe(24KB)
----Form1.frm(7KB)
----工程1.vbp(647B)
----Form1.frx(3KB)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(51B)

网友评论

  • 很有用。 对新手来说还可以。
  • 不错，，很实用
  • 还不错，不多对我没什么用
  • 不错不错，很有用。 对新手来说还可以。

相关文章