Foxtable(狐表)用户栏目专家坐堂 → [求助]用标签计时


  共有2281人关注过本帖树形打印复制链接

主题:[求助]用标签计时

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]用标签计时  发帖心情 Post By:2018/3/10 9:23:00 [只看该作者]

有一段代码,运行比较耗时,有时候感到程序是不是卡住了。

因此,我想在点击按钮运行代码时,标签开始计时读秒(格式00:00:00),代码运行完毕时,计时停止。

这样就可以知道程序正在运行,又可以知道整个代码运行的全部时间。

这个怎么做?

谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/10 9:39:00 [只看该作者]


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2018/3/10 15:02:00 [只看该作者]

放按钮里提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/10 15:04:00 [只看该作者]

TimerEnabled

e.form.TimerEnabled= true
Application.DoEvents
耗时代码
e.form.TimerEnabled= false

 回到顶部