高级功能研发区-VBA暂停等待函数金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA暂停等待函数  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=147124)

--  作者：李润Rex
--  发布时间：2017/1/19 14:48:48
--  VBA暂停等待函数
老师，您好，请问VBA中有没有让程序在某个地方暂停一段时间的函数呢？

--  作者：yukizzc
--  发布时间：2017/1/20 9:52:58
--
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