vb倒计时牌代码
来源:百度知道 编辑:UC知道 时间:2024/05/26 13:40:39
就是用VB遍一个倒计时,开始时间要求自己输入,倒计时结束后显示倒计时结束
新建 工程,1个按钮,1个timer,和1个文本框
在文本框内输入时间(秒数),点按钮就开始倒计时了:
Dim i%
Private Sub Command1_Click()
Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时")
Timer1.Enabled = Not Timer1.Enabled
i = 0
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Command1.Caption = "开始计时"
Text1 = ""
End Sub
Private Sub Timer1_Timer()
If Text1 = "" Then Exit Sub
Cls
If Val(Text1) - i = 0 Then
Print "时间到!!!"
Timer1.Enabled = False
Exit Sub
End If
Print "现在还剩下" & Val(Text1) - i & "秒了!!"
i = i + 1
End Sub
开始时间是指.要倒记时的具体分钟?秒?小时?
还是输入当时间到18:39:41的时候叫我?
具体是那个?
Private Sub form_load()
text1.text = ""
End Sub
private sub command1_click()
timer1.interval = 1000
end sub