7,763
社区成员
发帖
与我相关
我的任务
分享如何实现延时？
因为有一条语句时执行一个OLE过程，这个过程需要时间，但是VB在执行时不等这个完成后就会跳到下一条，如何延时，等这个OLE执行完毕？
...全文
请发表友善的回复…
发表回复
dot_net 2002-09-26
- 打赏
- 举报
用定时器
soybean208 2002-09-26
- 打赏
- 举报
Sleep 和 Delay 都是Windows的API吧？不是VB的函数吧
shux 2002-09-26
- 打赏
- 举报
' 延时程序
Public Sub PauseTime(nPauseSecond As Integer)
Dim Start
Start = Timer
Do While Timer < Start + nPauseSecond
If lUnload Then
End
End If
DoEvents
Loop
End Sub
Public Sub PauseTime(nPauseSecond As Integer)
Dim Start
Start = Timer
Do While Timer < Start + nPauseSecond
If lUnload Then
End
End If
DoEvents
Loop
End Sub
liucai 2002-09-26
- 打赏
- 举报
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 1000
Sleep 1000
zqfleaf 2002-09-26
- 打赏
- 举报
delay
nik_Amis 2002-09-26
- 打赏
- 举报
sleep api
