VB中不会造成假死的延时
2010-07-15 01:27:40 作者：wdcq001 来源：编程经验 浏览次数： 评论 0 条
在VB编程中，一般的延时都是用的sleep这个API函数，既
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
可是若果在编写GUI界面的程序的时候，使用此API延时的时候，会造成程序停止响应，既造成程序假死，不响应windows的请求。
如此，为保证程序将控制权交给电脑，保证假死情况不会出现。我们可以使用以下子程序：
Private Sub Delay(PauseTime As Long)
Dim Start As Single
Start = Timer * 1000
Do While Timer * 1000 < Start + PauseTime
Sleep (1)
DoEvents
Loop
End Sub
如若我们需要延时一秒的时候，就使用Delay 1000，而不是Sleep 1000.
此子程序可以完美解决程序失去相应的问题。
DoEvents万岁。。
已有
