VB计时方法?

来源：百度知道 编辑：UC知道 时间：2024/06/15 05:36:43
想等于一个简单的计时器吧..没什么内容
例子:
一个按钮在form里.点了后开始计时..
时间分为 H:M:S
这样的格式..
然后另外一个按钮点后停止.
希望能跟出CODE做为参考!

给你加多一个暂停的按钮，不喜欢可以不用。
窗体中一个TEXTBOX,三个COMMAND,一个TIMMER,看不到字就把TEXTBOX弄大点.

Private Declare Function GetTickCount Lib "kernel32" () As Long
Public TStart, TNow, TLast, TMinute, TSecond, TTotal

Private Sub Command1_Click()
Command1.Enabled = False: Command2.Enabled = True: Command4.Enabled = False
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Command3.Enabled = True
Timer1.Enabled = True
TTotal = TLast + TTotal
TStart = GetTickCount
Call Timer1_Timer
End Sub

Private Sub Command3_Click()
Command1.Enabled = True: Command2.Enabled = False
Command3.Enabled = False: Command4.Enabled = True
Timer1.Enabled = False
TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始":