Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让代码延迟执行(已解决)?


  共有2259人关注过本帖树形打印复制链接

主题:[求助]如何让代码延迟执行(已解决)?

帅哥哟,离线,有人找我吗?
lunengcheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
[求助]如何让代码延迟执行(已解决)?  发帖心情 Post By:2019/1/17 10:07:00 [只看该作者]

各位老师前辈,请教一个问题,我一个窗口里面有一个按钮,按钮里面有两段代码,现在希望点击按钮后,立即执行第一段代码,然后间隔2-3秒后再执行第二段代码,请问可以做到这点吗,希望可以给个参考,多谢了!
[此贴子已经被作者于2019/1/17 12:29:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
  发帖心情 Post By:2019/1/17 12:30:00 [只看该作者]

代码ok,多谢老师!

 回到顶部