求一段VB小程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 07:10:35
要求： 可以计算我工作的时间（最好时分秒都有）， 如一小时，半小时。 如果超时，要弹出提示框，说我超时了。 （有开始和结束按钮）

只是一个简单的倒计时而已~

Public A As Long

Private Sub Command1_Click() '开始按钮
Timer1.Interval = 1000
A = Text1.Text*60 '为倒计时时间赋值，单位是分钟
End Sub

Private Sub Command2_Click() '暂停按钮
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
A = A - 1
Label1.Caption = "剩余时间：" & Format(Str(A \ 3600) + ":" + Str((A Mod 3600) \ 60) + ":" + Str(A Mod 60), "hh:mm:ss")

If A = 0 Then
Timer1.Interval = 0 '停止计时，要不时间到了表就成负的了
MsgBox ("时间到") '
End If

End Sub

这个太简单了，总的来说不就是按start以后开始计时么？ 然后end或者有个闹钟功能

http://hi.baidu.com/luobo528/blog/item/ea776cf00e1049aea40f5213.html