vb中有没有延时的函数？

[youxi]

vb中有没有延时的函数？如等待1秒中，（程序什么事都不干）

[ttprgwfp]

sleep()就可以
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

[Sean918]

自己写的这个比 sleep 好
Public Sub Delay(mSec As Long)
On Error GoTo ShowErr

Dim TStart As Single

TStart = Timer

While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
ShowErr:
MsgBox Err.Source & "------" & Err.Description
Exit Sub

End Sub

[ketao_78]

都可以

[w18ily]

17、VB中如何使用延时函数？

*API函数声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
调用：
'延时1秒
Call Sleep(1000)

[dreammaker]

建议用TIMER控件