- 博客(0)
- 资源 (6)
空空如也
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
2011-11-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人