以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐表有没有延时命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89002)
--  作者：wangjh8888
--  发布时间：2016/8/13 11:02:00
--  狐表有没有延时命令
狐表有没有延时命令，比如，有时候需要一小段等待延时
--  作者：cbt
--  发布时间：2016/8/13 11:43:00
--  

Dim LastTime As Date = Date.now
Do until (Date.Now - LastTime).TotalSeconds >= 2
    Application.doevents
Loop
msgbox("2秒后看到")

 

 

System.Threading.Thread.Sleep(1500) \'延时1.5秒
--  作者：wangjh8888
--  发布时间：2016/8/13 16:08:00
--  
太好了  我试试  谢谢