MDI窗体中用BackgroundWorker在ToolStatusLabel显示实时时钟求助

原Timer停止运行通常是因为UI线程被其他耗时操作阻塞，导致Tick事件无法按时触发。以下是用BackgroundWorker在后台线程更新时间、安全更新UI的实现方案：

实现步骤 #

1. 准备BackgroundWorker #

在窗体设计器中添加一个BackgroundWorker控件（命名为bgwClock），也可通过代码声明：

Private WithEvents bgwClock As New BackgroundWorker()

2. 配置并启动BackgroundWorker #

在窗体Load事件中完成配置并启动后台任务：

Private Sub MdiAdvertisingSystem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 允许后台线程向UI线程报告进度
    bgwClock.WorkerReportsProgress = True
    ' 允许取消后台线程任务
    bgwClock.WorkerSupportsCancellation = True
    ' 启动后台时间更新任务
    bgwClock.RunWorkerAsync()
End Sub

3. 后台线程时间循环（DoWork事件） #

在后台线程中每隔1秒获取当前时间，通过ReportProgress将时间传递到UI线程：

Private Sub bgwClock_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgwClock.DoWork
    Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
    ' 循环执行直到线程被取消
    While Not worker.CancellationPending
        ' 获取格式化后的当前时间（和原Timer格式一致）
        Dim currentTime As String = Date.Now.ToString("G")
        ' 向UI线程报告进度，携带时间数据
        worker.ReportProgress(0, currentTime)
        ' 暂停1秒，控制时间更新频率
        System.Threading.Thread.Sleep(1000)
    End While
End Sub

4. 在UI线程更新状态栏（ProgressChanged事件） #

ProgressChanged事件运行在UI线程中，可直接操作控件更新内容：

Private Sub bgwClock_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bgwClock.ProgressChanged
    ' 取出传递的时间字符串，更新状态栏标签
    tslCurrntDateNTime.Text = CStr(e.UserState)
End Sub

5. 窗体关闭时取消后台线程 #

避免窗体关闭后后台线程持续运行，在窗体Closing事件中终止任务：

Private Sub MdiAdvertisingSystem_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    If bgwClock.IsBusy Then
        bgwClock.CancelAsync()
    End If
End Sub

关键注意事项 #

• 后台线程（DoWork事件）禁止直接操作UI控件，必须通过ReportProgress将数据传递到UI线程处理。
• 必须设置WorkerReportsProgress = True，否则无法触发ProgressChanged事件完成UI更新。
• 开启WorkerSupportsCancellation并在窗体关闭时调用CancelAsync()，防止内存泄漏。

内容的提问来源于stack exchange，提问作者Mark