vb.net 自定义延时函数

Sub Delay(ByVal ms As Int32)
If ms < 10 Then Exit Sub
Dim ft As Date = Date.Now
Dim nt As Date
Do
Application.DoEvents()
nt = Date.Now
Threading.Thread.Sleep(10)
Loop Until nt > ft.AddMilliseconds(ms)
End Sub

Sub DelayTime(ByVal tms毫秒 As Integer)
Dim st As Long = Now.Ticks
Dim st1 As Long = Now.Ticks
Dim st2 As Integer = 0
Do
st2 = CInt((st1 - st) / 10000)
Select Case st2 - tms毫秒
Case Is < 0
Application.DoEvents()
st1 = Now.Ticks
Case Else
'达到条件下，延时结束
Exit Do
End Select
Loop
End Sub

标签：Dim,vb,End,Sub,自定义,Ticks,Date,net,Now
来源： https://www.cnblogs.com/Old-wugong/p/16403904.html