最近写个东西用到延时函数,整理一下:
代码1 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 代码2 Private Declare Function timeGetTime Lib "winmm.dll" () As Long Function Delaytime(Milliseconds As Integer) Dim Savetime As Double Savetime = timeGetTime '记下开始时的时间 While timeGetTime < Savetime + Milliseconds '循环等待 DoEvents '转让控制权,以便让操作系统处理其它的事件。 Wend End Function 代码3 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function timeGetTime Lib "winmm.dll" () As Long Function Delaytime(Milliseconds As Integer) '改造后的延时程序 Dim Savetime As Double Savetime = timeGetTime '记下开始时的时间 While timeGetTime < Savetime + Milliseconds '循环等待 Sleep (30) '加上这么一句后,该函数延时不占用CPU资源,也不像sleep函数,调用后程序无反应了。 DoEvents '转让控制权,以便让操作系统处理其它的事件。 Wend End Function以上三个代码都能延时,代码一的缺点是延时长点后,在延时过程中程序无反应了;代码二的缺点是延时的时候程序有反应,延时过程中CPU接近100%,代码三是结合前两个代码,延时过程中程序也有反应,CPU占用也小。