求一个倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音

Question

要代码 在线等
谢了

Answer 1

二个文本框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 SubPrivate Sub C2_Click()
T1.Enabled = True
Tr1.Enabled = False
T2.Text = 0
End SubPrivate 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

Answer 2

本帖最后由 bcrun 于 2012-10-21 09:37:24 编辑