如何更新单个继承窗体实例而不影响其他已打开实例？

问题描述 #

3/23编辑：补充建议修改内容及新信息。

我有一个VB.NET Windows窗体rptBase，包含statusstrip和ToolStripStatusLabel控件tssl1。rpt1和rpt2两个窗体继承自rptBase。

主窗体frmMain上的ListBox1点击事件代码如下：

Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
    Dim frmRpt As New frmRptBase

    Select Case ListBox1.SelectedIndex
        Case 1
            frmRpt = New frmRpt1()
            frmRpt.Text = "Report 1"
            frmRpt.Show()
        Case 2
            frmRpt = New frmRpt2()
            frmRpt.Text = "Report 2"
            frmRpt.Show()
    End Select
    AddForm(frmRpt)
End Sub

我想显示报表的进度，但更新报表1的tssl1.Text时，报表2的该控件也会同步更新，反之亦然。如何仅更新其中一个窗体的控件？

已通过字典和AddForm方法保存窗体引用：

Public Sub AddForm(frm As Object)
    m_dctFrms.Add(frm, Str(frm.FormID))
End Sub

并编写了更新状态栏的方法：

Public Sub UpdateStatus(strMsg As String)
    tssl1.Text = strMsg
End Sub

程序运行时，先打开报表1，再打开报表2，然后运行报表1。

补充信息 #

报表在BackgroundWorker中运行。在DoWork子过程中调用UpdateStatus时，结果符合预期；但在ProgressChanged子过程中调用时，问题出现：

Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs) Handles bw.DoWork
    UpdateStatus("This works, only one form updated.")
End Sub

Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bw.ProgressChanged
    UpdateStatus("This does not work. Both form are updated.")
End Sub

问题原因 #

核心问题在于BackgroundWorker的事件绑定与实例隔离：

1. 如果基类rptBase中的BackgroundWorker是设计器全局创建的，而非每个子窗体实例独立初始化，会导致所有子窗体共享同一个BackgroundWorker实例，ProgressChanged事件触发时会执行所有绑定的处理程序。
2. 若UpdateStatus被错误定义为Shared（共享）方法，调用时会直接修改基类的控件引用，而非当前实例的控件。

解决方案 #

方案1：为每个窗体实例独立创建BackgroundWorker #

在基类rptBase的构造函数中动态初始化BackgroundWorker，确保每个窗体拥有独立的后台任务实例：

Public Class rptBase
    Private bw As BackgroundWorker

    Public Sub New()
        InitializeComponent()
        ' 为当前窗体实例单独创建BackgroundWorker
        bw = New BackgroundWorker()
        bw.WorkerReportsProgress = True
        ' 绑定当前实例的事件处理方法
        AddHandler bw.DoWork, AddressOf bw_DoWork
        AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
        AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
    End Sub

    Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs)
        ' 执行后台任务，通过ReportProgress传递进度信息
        bw.ReportProgress(50, "处理中...")
        UpdateStatus("仅当前窗体更新")
    End Sub

    Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
        ' 从UserState获取进度消息，更新当前窗体的状态栏
        Dim statusMsg As String = CStr(e.UserState)
        UpdateStatus(statusMsg)
    End Sub

    Private Sub bw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
        UpdateStatus("任务完成")
    End Sub

    Public Sub UpdateStatus(strMsg As String)
        ' 确保在UI线程更新控件，避免跨线程异常
        If Me.tssl1.InvokeRequired Then
            Me.Invoke(Sub() UpdateStatus(strMsg))
        Else
            Me.tssl1.Text = strMsg
        End If
    End Sub
End Class

方案2：确保UpdateStatus为实例方法 #

检查UpdateStatus方法是否带有Shared关键字，若有则删除，确保每个窗体实例调用的是自身的方法，仅修改当前实例的tssl1：

' 错误写法（共享方法）
' Public Shared Sub UpdateStatus(strMsg As String)

' 正确写法（实例方法）
Public Sub UpdateStatus(strMsg As String)
    If Me.tssl1.InvokeRequired Then
        Me.Invoke(Sub() UpdateStatus(strMsg))
    Else
        Me.tssl1.Text = strMsg
    End If
End Sub

方案3：通过UserState传递目标窗体引用 #

若必须共享BackgroundWorker，可在ReportProgress时传递当前窗体实例，在ProgressChanged中精准更新目标窗体：

' 在DoWork中传递当前窗体和进度消息
Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs)
    Dim progressData = New With {
        .TargetForm = Me,
        .Message = "处理中..."
    }
    bw.ReportProgress(50, progressData)
End Sub

' 在ProgressChanged中根据传递的窗体更新状态栏
Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
    Dim data = CType(e.UserState, Object)
    Dim targetForm As rptBase = data.TargetForm
    targetForm.UpdateStatus(data.Message)
End Sub

关键注意事项 #

• 继承窗体的控件默认是每个实例独立的，除非被显式设置为共享，避免修改基类控件的共享引用。
• 所有UI控件更新必须确保在UI线程执行，使用InvokeRequired检查是通用的安全做法。
• BackgroundWorker的事件处理程序要绑定到实例方法，而非共享方法，保证事件触发时仅影响当前窗体。

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