资料杂谈

Option Explicit 
Dim mTime1 As Date 
Private Sub Command1_Click() 
If Command1.Caption = "开始" Then 
Label2.Caption = "开始时间: " & CStr(Format(Now, "hh:mm:ss AM/pm")) 
Timer2.Enabled = True 
Timer2.Interval = 1000 
mTime1 = "00:00:00" 
Command1.Caption = "结束" 
Label3.Caption = "共用时间: " 
Else 
Timer2.Enabled = False 
Timer2.Interval = 0 
Command1.Caption = "开始" 
Label3.Caption = "共用时间: " & CStr(mTime1) 
End If 

End Sub 

Private Sub Form_L) 
Command1.Caption = "开始" 
Timer1.Enabled = True 
Timer1.Interval = 1000 
Timer2.Enabled = False 
End Sub 

Private Sub Timer1_Timer() 
Label1.Caption = "当前时间: " & CStr(Format(Now, "hh:mm:ss AM/pm")) 
End Sub 

Private Sub Timer2_Timer() 
mTime1 = TimeValue(mTime1) + TimeValue("00:00:01") 
End Sub screen.width*0.35) this.width=screen.width*0.40
    
手机支付宝搜索P2zPYPB74GJ即可领取作者发的红包，赶快参与吧！
点击复制红包码

淘宝双11超级红包，复制淘口令$bkb13lYsLPg$，打开手机淘宝即可领取。复制淘口令
若淘口令失效，请点击此处链接领取

京东双11超级红包，复制京口令￥UANeFApAs8a1nuds￥，打开手机京东即可领取。复制京口令
若京口令失效，请点击此处链接领取

阅读模式无法加载下一章，请退出