123456.txt

有开始、计时、停止三个按钮

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 = "开始": Command2.Caption = "计时": Command3.Caption = "停止": Command4.Caption = "退出" 
Command1.Default = True: Command2.Enabled = False: Command3.Enabled = False 
Timer1.Interval = 1000: Timer1.Enabled = False 
TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0 
End Sub 

Private Sub Timer1_Timer() 
TNow = GetTickCount 
TLast = Val(TNow - TStart) \ 1000 
TMinute = TLast \ 60 
TSecond = TLast Mod 60 
Text1.Text = "距你本次点击[计时]的时间为" & TMinute & "：" & TSecond & vbCrLf & "从第一次点击[计时]到本次点击经过了：" & TTotal & "秒" 
End Sub