先看一下《VB中不会造成假死的延时》,此文出处:http://www.wdeee.cn/2010/0715/6335.html
在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万岁。。
==================================================================================================================================
自己操刀,先看这个行不行:
int Delay(int x)
{
int i;
i=x;
while(i>=0)
i--;
}
出处:
http://zhidao.baidu.com/question/279767836
结论:不理想,单片机还凑合,这PC机,实参填多大都不能满足它!
可能得再用一个timer了
不过还有个办法是建一个线程,就让它这样假死,不影响 UI 就行!