- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]用标签计时 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115611)
-- 发布时间：2018/3/10 9:23:00
-- [求助]用标签计时
有一段代码，运行比较耗时，有时候感到程序是不是卡住了。
因此，我想在点击按钮运行代码时，标签开始计时读秒（格式00:00:00），代码运行完毕时，计时停止。
这样就可以知道程序正在运行，又可以知道整个代码运行的全部时间。
这个怎么做？
谢谢！
-- 发布时间：2018/3/10 9:39:00
--
要使用 多线程做
-- 发布时间：2018/3/10 10:34:00
--
试了一下可以使用窗口计时器：http://www.foxtable.com/webhelp/scr/1301.htm
计时器默认设置间隔100，停止
按钮代码
e.form.TimeEnabled = true
Application.DoEvents
耗时代码
e.form.TimeEnabled = false
TimerTick事件
e.form.TimerInterval = 1000
e.form.controls("Label1").text = date.now
-- 发布时间：2018/3/10 15:02:00
--
放按钮里提示：
此主题相关图片如下：image 1.jpg
-- 发布时间：2018/3/10 15:04:00
--
TimerEnabled
e.form.TimerEnabled= true
Application.DoEvents
耗时代码
e.form.TimerEnabled= false