VB中如何延时执行命令！

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

VB6.0可以使用Api函数Sleep来圆樱实现延迟功能。

Sleep函数，暂停当前线程指定的时间间隔执行。

用法：

Sleep （S）

S，以毫秒为单位的睡眠时间

通过VB自带的API浏览器誉腔桐，在模块中添加：

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

代码中用

  Sleep (1000) ‘延迟100毫秒执行按钮Click事件

  Private Sub Command1_Click()

强烈建议使用Timer控件来实现延庆坦迟执行命令，它不会引起暂停等待，而不执行在延迟中发生的其它事件。

使用 Timer 控件

Timer

控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行 *** 作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理，

Timer 控件也非常有用。

方法很多个。

可以使用API函数Sleep

Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)

调用比如睡眠1秒:Sleep(1000)

另外还有一种延时方法，即获取当前系统时间+延时派晌时间=等待结束时间仿晌，等到了等备羡锋待结束时间到了就往下执行。

Private Declare Function GetTickCount Lib "kernel32" () As Long

'自编应用函数

Private Sub WaitForMS(MillSeconds As Long)

Dim S as Long

S=GetTickCount+MillSeconds

Do

If GetTickCount=S Then Exit Sub

Loop

End Sub

这个函数的调用跟上面的相似，单位是ms。

---