16,555
社区成员
发帖
与我相关
我的任务
分享
'Wait-等待指定的时间数
Public Sub Wait(ByVal lMilliseconds As Integer)
Dim lTm As Integer
lTm = System.Environment.TickCount
Do While System.Environment.TickCount - lTm < lMilliseconds
If _StopWait Then
Exit Do
Else
Threading.Thread.CurrentThread.Sleep(1)
System.Windows.Forms.Application.DoEvents()
End If
Loop
_StopWait = False
lTm = Nothing
End Sub