Visual Basic VB.Net-GUI暂停复选框

Question

我试图创建一个复选框，单击该复选框将暂停当前功能。 这是我的代码设置方式-

Public Function Wait()
    LogOutput("Application paused.")
    Do Until waitBox.Checked = False
        'Task.Delay(1000)
        My.Application.DoEvents()
    Loop
    LogOutput("Application unpaused.")
Return Nothing
End Function

---

Public Function Thing()
   For Each i In x
      If waitBox.Checked Then
          Wait()
      Else
          DoStuff()
      End If
   Loop
Return Nothing
End Function

如您所见，我已经尝试了“ Task.Delay”和“ DoEvents（）”，但是问题是该函数运行时GUI被锁定，因此用户根本无法单击暂停。

我该如何解决？

提前致谢。

Answer 1

您需要为此创建一个新线程，因此GUI不会被锁定： https : //msdn.microsoft.com/zh-cn/library/system.threading.thread(v=vs.110).aspx