VB.NET WinForm死循環UI凍結解決方案：Application.DoEvents與異步模式

問題現象

VB.NET WinForm中死循環執行耗時操作，導致UI界面凍結，Button2需點擊兩次才能響應停止命令。

根本原因

• 死循環佔用UI主線程，消息泵無法處理繪製/輸入事件
• Button2點擊事件排隊等待，循環內未調用DoEvents處理消息隊列
• Stop_Enable標誌變更後，循環需下一次迭代才能檢測到

快速修復：Application.DoEvents

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Do While True
        Application.DoEvents() ' 關鍵：處理待處理Windows消息
        If Stop_Enable Then Exit Do
        ' 業務邏輯...
        ListBox1.Items.Add(n)
        ListBox1.TopIndex = ListBox1.Items.Count - 1
        n += 1
        Thread.Sleep(100) ' 降低CPU佔用
    Loop
End Sub

最佳實踐：異步編程模式 (推薦)

Task + CancellationToken 模式

Imports System.Threading.Tasks

Private cts As CancellationTokenSource
Private uiTask As Task

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Button1.Enabled = False
    Button2.Enabled = True
    
    cts = New CancellationTokenSource()
    uiTask = Task.Run(Sub() RunLoop(cts.Token), cts.Token)
    
    Try
        Await uiTask
    Catch ex As OperationCanceledException
        ' 正常取消
    Finally
        Button1.Enabled = True
        Button2.Enabled = False
    End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    cts?.Cancel() ' 發送取消信號
End Sub

Private Sub RunLoop(token As CancellationToken)
    Dim n = 0
    While Not token.IsCancellationRequested
        ' 後台線程計算
        Dim item = n.ToString()
        n += 1
        
        ' 跨線程更新UI
        Me.Invoke(Sub()
                      ListBox1.Items.Add(item)
                      ListBox1.TopIndex = ListBox1.Items.Count - 1
                  End Sub)
        
        Thread.Sleep(100)
    End While
End Sub

BackgroundWorker 模式 (傳統)

Private worker As New BackgroundWorker()

Private Sub Form1_Load(...) Handles MyBase.Load
    worker.WorkerSupportsCancellation = True
    worker.WorkerReportsProgress = True
    AddHandler worker.DoWork, AddressOf Worker_DoWork
    AddHandler worker.ProgressChanged, AddressOf Worker_ProgressChanged
End Sub

Private Sub Worker_DoWork(sender, e)
    Dim bw = CType(sender, BackgroundWorker)
    Dim n = 0
    While Not bw.CancellationPending
        bw.ReportProgress(0, n) ' 傳遞數據
        n += 1
        Thread.Sleep(100)
    End While
End Sub

Private Sub Worker_ProgressChanged(sender, e)
    ListBox1.Items.Add(e.UserState)
    ListBox1.TopIndex = ListBox1.Items.Count - 1
End Sub

方案對比

核心原則

1. 耗時操作不得阻塞UI線程
2. 跨線程更新UI必須 marshal (Invoke/BeginInvoke/ProgressChanged)
3. 提供取消機制 (CancellationToken/CancellationPending)
4. 避免共享狀態，傳遞不可變數據