以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何让代码延迟执行（已解决）？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130261)
--  作者：lunengcheng
--  发布时间：2019/1/17 10:07:00
--  [求助]如何让代码延迟执行（已解决）？
各位老师前辈，请教一个问题，我一个窗口里面有一个按钮，按钮里面有两段代码，现在希望点击按钮后，立即执行第一段代码，然后间隔2-3秒后再执行第二段代码，请问可以做到这点吗，希望可以给个参考，多谢了！
[此贴子已经被作者于2019/1/17 12:29:58编辑过]
--  作者：有点甜
--  发布时间：2019/1/17 10:09:00
--  

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

msgbox("10秒后执行")
--  作者：lunengcheng
--  发布时间：2019/1/17 12:30:00
--  
代码ok，多谢老师！