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

分享到: 更多

用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应,这个就好多了。
参数单位为毫秒

    Public Shared Sub Sleep(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

3 comments to vb.net 不会无响应的延时函数

Leave a Reply

Google AdWords