vb.net 不会无响应的延时函数delay

发布时间：2020-12-17 07:40:50 所属栏目：百科来源：网络整理

导读：用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应，特别是最小化窗口后，经常无法正常激活窗口，下面这个就好多了。参数单位为毫秒 Public Shared Sub delay( ByVal Interval As Integer ) Dim __time As DateTime = DateTime.Now Dim __Span A

用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应，特别是最小化窗口后，经常无法正常激活窗口，下面这个就好多了。
参数单位为毫秒

Public Shared Sub delay( ByVal Interval As Integer)
Dim __time As DateTime = DateTime.Now
Dim __Span As Int64 = Interval * 10000 '因为时间是以100纳秒为单位。
While (DateTime.Now.Ticks - __time.Ticks < __Span)
Application.DoEvents()
End While
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!