讨论延时问题?
大家看下面的一个延时过程:
Private Sub DelayTime(ByVal intSeconds As Integer)
Dim lngTime As Long
lngTime = Timer + intSeconds
Do Until lngTime < Timer
DoEvents
Loop
End Sub
Timer是返回一个 Single,代表从午夜开始到现在经过的秒数。也就是说在午夜的时候Timer要复位为0。如果在午夜前10秒运行这个函数,而intSeconds为20,那这个延时过程将进入无效循环。大家有没有更好的延时方法,讨论一下.