如何让程序执行停止呢？

Question

我想让VB的程序执行到一条语句，然后在此处停止5秒后，再按我写的程序去执行，我该如何去做呢？谢谢！很急！！！

Answer 1

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

Answer 2

用timer控件吧，开始enabled 设成false, 程序中激活它触发时钟控件
在时钟控件的程序中定义你要执行的程序！（时钟控件的interval设成5000)

Answer 3

用timer控件不行，但是API函数：sleep()没有用过，可以更详细点告诉吗？？谢谢！！等待

Answer 4

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

Answer 5

先声明
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)然后在你要停住的语句上加上这个语句：
call sleep 5000 '5000 单位是毫秒 也就是 5秒

Answer 6

写个过程给你：
Private Declare Function timeGetTime Lib "winmm.dll" () As LongSub Delay(Byval DelayTime As Long) '单位是毫秒
DelayTime =DelayTime + Timegettime
Do While Timegettime < DelayTime 
   DoEvents
Loop
End Sub调用的时候这样写：
...
Delay 1000  '延时一秒
...用这个过程比较好，不会造成程序“假死”的现象。

Answer 7

上面的兄弟，我试了一下，可是结果是Timegettime的值是空值，结果是程序在死循环。
Do while Timegettime < DelayTime
   DoEvents
Loop
程序就是在这个循环语句中执行，请求帮助，谢谢！!!!

Answer 8

'这是延迟函数.
Public Sub Delay(PauseTime As Single)
Dim Start As Single
Start = Timer   ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime
      DoEvents   ' 将控制让给其他程序。
Loop
End Sub'调用就
......
Delay 3000'三秒
....