共5 条记录, 每页显示 10 条, 页签: [1]

标题：除了sleep函数（会假死），VBA延时如何简单的实现？

1楼

qq代人发帖 发表于：2017/10/27 16:59:26

请教：除了sleep函数（会假死），VBA延时如何简单的实现？

2楼

FexTel 发表于：2017/10/27 17:05:22

4、该示例使用金字塔的VBS系统调用WINDOWS API中的Sleep函数来实现延时功能
参数为延时毫秒数
Sub StockSleep(slSecond)
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "KERNEL32.DLL", "Sleep","i=u","r=l"
Wrap.Sleep(slSecond)
End Sub

另外你VB某些过程的执行是受定时器控制的

3楼

低收益 发表于：2017/10/27 17:14:01

Sub StockSleep(slSecond)
Set Wrap = CreateObject("DynamicWrapperX")
Wrap.Register "KERNEL32.DLL", "Sleep","i=u","r=l"
Wrap.Sleep(slSecond)
End Sub

会假死

4楼

无为剑 发表于：2017/10/27 19:01:37

没有简单方案，不假死你可以采取下面2个解决方案
1，使用定时器，触发另一个过程完成延时目的

2，自己做个循环函数参考 http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=62158&skin=0

5楼

guotx2010 发表于：2017/10/29 10:17:25

记录上次执行的时间，下次执行前，取出上次的时间，跟最新的时间比较，计算间隔的秒数，没有达到就不执行，达到就执行。

1、记录执行时间，可以记录到全局变量，如：call document.SetExtString("LastTime",Cdate(Time)).

2、执行代码前，取出全局变量LastTime,如：sLastTime=document.GetExtString("LastTime").

3、判断上次执行时间与最新时间的间隔秒数，nMs=DateDiff("s",sLastTime,Cdate(Time))

4、判断秒数是否超过你自己需要延时的秒数，没有就不执行，超过就执行，如：if nMs>10 then 执行后续代码

共5 条记录, 每页显示 10 条, 页签: [1]