以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于延迟问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88854)
--  作者：luodang2050
--  发布时间：2016/8/10 15:50:00
--  关于延迟问题

System.Threading.Thread.Sleep(1000)

如上，使用该延迟，系统会变成假死状态，而且貌似会中断其他操作，有没更好的延迟方法？
--  作者：大红袍
--  发布时间：2016/8/10 15:53:00
--  

参考

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10) \'等到10秒
    Application.DoEvents
End While
msgbox(3)
--  作者：luodang2050
--  发布时间：2016/8/10 16:02:00
--  
AddSeconds 方法只能精确到秒，能否到ms呢？
--  作者：luodang2050
--  发布时间：2016/8/10 16:29:00
--  
测试了下，addsecond也可增加小数点，完美解决，谢谢