以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]两个操作之间怎么实现时间间隔？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103942)
--  作者：ufo20085
--  发布时间：2017/7/20 9:08:00
--  [求助]两个操作之间怎么实现时间间隔？
有两个操作动作 ，分别对应的代码A和代码B。现在想在两个操作间实现间隔，即代码A实现以后，DELAY两秒后操作代码B
这样在两段代码中插入什么语句可以实现呢？

代码A
（插入什么）
代码B
--  作者：有点甜
--  发布时间：2017/7/20 9:10:00
--  

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5)
    Application.DoEvents
End While

msgbox("5秒后执行")