如何停掉Application.onTime程序? (已解決)
- 帖子
- 135
- 主題
- 19
- 精華
- 0
- 積分
- 165
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-12-9
- 最後登錄
- 2012-8-27
|
如何停掉Application.onTime程序? (已解決)
本帖最後由 FAlonso 於 2011-3-31 21:16 編輯
有若干計時程式- Sub timing()
- [a1] = [a1] + 1
- Application.OnTime Now + TimeValue("00:00:01"), "timing" 'Counter
- End Sub
複製代碼 想停止的話,我寫了這個- Sub A1stop()
- Application.OnTime Now + TimeValue("00:00:01"), "timing", , False
- End Sub
複製代碼 |
|
80 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
2#
發表於 2011-3-30 21:08
| 只看該作者
建立停止機制
Public a As Boolean
Sub timing()
If a = True Then End
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:01"), "timing" 'Counter
End Sub
Sub A1stop()
a = IIf(a = True, False, True)
End Sub |
|
|
|
|
|
|