文件名称：延时函数vbnet
文件大小：499B
文件格式：TXT
更新时间：2018-06-08 08:58:48
延时函数
vbnet写的延时函数 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