© 1999-2048 dssz.net 粤ICP备11031372号
[VB] 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(<xiaobai810> 上传 | 大小:10kb