简单,无阻塞的睡眠方式？

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可以修改为十分之一秒或百分之一秒

Answer 2

这是WinForms还是WPF？

如果它是WinForms,你可以使用计时器而不是while循环.然后你的应用程序仍然会响应并提升事件.

在WPF中,我认为你必须根据DispatchTimer类制作自己的计时器.

Answer 3

Private Sub wait(ByVal interval As Integer)
    Dim stopW As New Stopwatch
    stopW.Start()
    Do While stopW.ElapsedMilliseconds < interval
        ' Allows your UI to remain responsive
        Application.DoEvents()
    Loop
    stopW.Stop()
End Sub

Answer 4

这段简单的代码怎么样 - :)

Private Async Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        MsgBox("This msgbox is shown immidiatly. click OK and hover mouse over other controls to see if UI is freezed")
        Await Task.Delay(5000)
        MsgBox("see? UI did'nt freez :). Notice the keyword 'Async' between Private and Sub")
    End Sub

在声明的 sub 上使用Async，然后 putAwait Task.Delay(milliseconds)代替Thread.Sleep(milliseconds)