VB倒计时代码发出BEEP声音
最好能让我 自己定义时间 10分钟 5分钟 或者其它整数时间 不超过一小时
二个文本框T1，T2,T1用来设定时间的，T2用来显示时间。二个按钮C1,C2，C1用来启动计时，C2停止并可以重新设置时间，还要画一个计时器用于计时用
Private Sub C1_Click()
If T1.Text = "" Then
MsgBox "请重新输入", vbCritical
Else
T1.Enabled = False
Tr1.Enabled = True
T2.Text = 0
End If
End Sub 新年祝福网页
Private Sub C2_Click()
T1.Enabled = True
Tr1.Enabled = False
T2.Text = 0
End Sub
Private Sub Tr1_Timer()
If T2.Text = T1.Text Then
Beep
Tr1.Enabled = False
MsgBox "时间到", vbOKOnly
T2.Text = 0
Else: T2.Text = T2.Text + 1
End If
End Sub
Public JSjs As Integer '计时时间
Public date1 As String '起始时间
Private Sub Command6_Click()
Timer1.Enabled = True
date1 = ""
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
JSjs = 10 '计时10分钟
End Sub
Private Sub Timer1_Timer()
If date1 = "" Then
date1 = Format(Now, "yyyy-MM-dd hh:mm:ss")
End If
If DateDiff("n", date1, Now) >= JSjs Then
MsgBox "时间到"
Timer1.Enabled = False
End If
End Sub