请问有什么方法可以使程序暂停一段时间！

[loveyxy]

谢谢

[宏正]

取简单方法做一个循环语名，空语名也行，For i=1 to 10000 loop
或者：
本示例使用 Timer 函数来暂停应用程序。同时用 DoEvents 在暂停期间将控制让给其他进程。

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' 设置暂停时间。
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime
DoEvents ' 将控制让给其他程序。
Loop
Finish = Timer ' 设置结束时刻。
TotalTime = Finish - Start ' 计算总时间。
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If

[ilfsm]

用API函数：

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

[ienable]

1.void Sleep(DWORD dwMilliseconds);
Sleep(10000);
2.for(long i = 0; i < 1000000; i++);

[of123]

dim t
t = timer + 0.5 '等待0.5秒
do until timer>t
loop

[用户 昵称]

添加一个timer

timer1.interval = 5000 '5秒
timer1.enable = true
do
do events
loop while timer1.enable = true

sub timer1_timer()
timer1.enable = false
end sub
搞定。

[perrylee]

Dim tm
tm = Time
tm = Timer
Do While Timer - tm < 1 '调整数值就可以设定暂停时间。
DoEvents
Loop

'很好用的，又简单。