[已解决]我的计时器为什么不会动

murphys1989

1. Public button_type As Integer
   
2. 
   
3. Private Sub 开始_Click()
   
4.     If button_type = 1 Then
   
5.         button_type = 2
   
6.         开始.Caption = "00:00:00"
   
7.         Call Showtime2
   
8.     Else
   
9.         MsgBox 开始.Caption
   
10.         开始.Caption = "开始"
    
11.         button_type = 1
    
12.     End If
    
13. End Sub
    
14. 
    
15. Sub Showtime2()
    
16.     If Not button_type = 2 Then Exit Sub
    
17.     With 开始
    
18.         .Caption = Format(TimeValue(.Caption) + TimeValue("00:00:01"), "hh:mm:ss")
    
19.     End With
    
20.     Application.OnTime Now + TimeValue("00:00:01"), "Showtime2"        
    
21. End Sub
    

复制代码

计时器直接显示 00：00：01 ，就不动了。
感觉这句 Application.OnTime Now + TimeValue("00:00:01"), "Showtime2"   没产生作用。
求各位前辈解惑。

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-5-9 21:43

计时器.rar (15.34 KB, 下载次数: 31)

2016-5-9 21:43 上传

点击文件名下载附件

跳转到最佳答案楼层

murphys1989

自顶一个
求教各路大神

雪舞子

计时器.rar (15.34 KB, 下载次数: 31)

2016-5-9 21:43 上传

点击文件名下载附件