vb.net - 简单、无阻塞的 sleep 方式？

Question

我在 google 上搜索了此内容并在此处阅读了一些线程，但我还没有找到一种简单的方法来让 VB.Net 应用程序休眠一段时间并仍然保持应用程序响应:

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Threading.Thread

[...]

''#How to keep screen frop freezing?
While True
  ListBox1.Items.Clear()

  ListBox1.Items.Add("blah")

  ''#Not much difference
  ListBox1.Refresh()

  ''#Wait 1mn
  Sleep(60000)
End While

真的没有简单、非阻塞的解决方案让 VB.Net 应用程序等待几秒钟吗？

谢谢。

Answer 1

Public Sub ResponsiveSleep(ByRef iMilliSeconds As Integer)
    Dim i As Integer, iHalfSeconds As Integer = iMilliSeconds / 500
    For i = 1 To iHalfSeconds
        Threading.Thread.Sleep(500) : Application.DoEvents()
    Next i
End Sub

调用 ResponsiveSleep 来暂停特定的代码段，同时保持应用程序的响应速度。为了使应用程序响应更快，可以将 iHalfSeconds 修改为十分之一或百分之一秒