VB中如何延时执行命令！

2025-03-09 12:47:41

推荐回答（4个）

回答1：

1可以利用api sleep函数，冻结线程，但由于消息函数阻塞会导致卡屏，2可以向楼上那样创建wscript.shell对象，3使用timer控件延迟，4使用循环结构取当前时间做差判断，填充doevents语句防止占用过多cpu时间片。不懂继续问。

回答2：

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep 3000 这里是延时3000毫秒=3秒
或者用timer控件

回答3：

试试这个：
Set Shell = CreateObject("Wscript.shell")
WScript.Sleep 时间

回答4：

利用时间控件试试