如何解决使用sleep函数延时较长一段时间后程序不响应的问题？

Question

如题。是否有其他更好的延时的方法呢？

Answer 1

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '定義延時函數
    Call Sleep(1000)   '延時0.1秒
    DoEvents

Answer 2

可以用一个长循环。
for i = 0 to 1000000
doevents
next

Answer 3

Public Sub Wait(delay As Single)
    starttime! = Timer
    Do Until Timer >= starttime! + delay
    Loop
End Sub'用 Wait 2.5 就是延迟2.5s

Answer 4

Sleep的作用就是让程序暂停响应，不在中间夹带doevents的长循环还没它好。
夹带doevents的长循环又没有用Timer控件延时安全。
你的需求可能是想 延时的同时可以响应用户操作
那就用Timer控件吧