鼠标悬停RadioButton时跨窗体显示RichTextBox的技术实现问题

需求说明 #

我正在开发一款多窗体应用程序，核心需求：

• Dashboard窗体中的4个RichTextBox控件始终保持可见
• 鼠标悬停在MapView窗体的RadioButton上时，对应的RichTextBox内容要在MapView窗体中同步显示

现有代码问题分析 #

当前代码存在几个关键问题：

1. Form2中点击按钮加载Dashboard/MapView时，每次都创建新实例，导致MapView引用的Dashboard和实际显示的不是同一个对象，交互逻辑失效
2. MapView未实现自身窗体显示RichTextBox的逻辑，仅操作了Dashboard的控件
3. Dashboard的ShowRichTextBox方法不符合"始终可见"的需求（该方法仅设置显示，且无需动态修改可见性）

修正后的代码实现 #

1. Form2 主窗体代码 #

修改为复用同一个Dashboard和MapView实例，避免每次点击创建新对象：

Public Class Form2
    Inherits Form

    Private dashboard As Dashboard
    Private mapView As MapView
    Private route As Route
    Private aboutUs As AboutUs
    Private contactUs As ContactUs

    Public Sub New()
        InitializeComponent()
        ' 初始化所有子窗体实例，确保共享同一个Dashboard
        dashboard = New Dashboard()
        mapView = New MapView(dashboard)
        route = New Route()
        aboutUs = New AboutUs()
        contactUs = New ContactUs()
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 默认加载Dashboard窗体
        LoadFormInPanel(dashboard)
    End Sub

    Public Sub LoadFormInPanel(formToShow As Form)
        formToShow.TopLevel = False
        formToShow.FormBorderStyle = FormBorderStyle.None
        formToShow.Dock = DockStyle.Fill

        Panel2.Controls.Clear()
        Panel2.Controls.Add(formToShow)
        formToShow.Show()
    End Sub

    Private Sub BunifuThinButton21_Click(sender As Object, e As EventArgs) Handles BunifuThinButton21.Click
        LoadFormInPanel(dashboard)
    End Sub

    Private Sub BunifuThinButton22_Click(sender As Object, e As EventArgs) Handles BunifuThinButton22.Click
        LoadFormInPanel(mapView)
    End Sub

    Private Sub BunifuThinButton23_Click(sender As Object, e As EventArgs) Handles BunifuThinButton23.Click
        LoadFormInPanel(route)
    End Sub

    Private Sub BunifuThinButton24_Click(sender As Object, e As EventArgs) Handles BunifuThinButton24.Click
        LoadFormInPanel(aboutUs)
    End Sub

    Private Sub BunifuThinButton25_Click(sender As Object, e As EventArgs) Handles BunifuThinButton25.Click
        LoadFormInPanel(contactUs)
    End Sub

    Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
    End Sub
End Class

2. Dashboard 窗体代码 #

确保所有RichTextBox默认可见，并提供控件属性供MapView访问内容：

Imports System.Windows.Forms

Public Class Dashboard
    Inherits Form

    Public Sub New()
        InitializeComponent()
        ' 初始化时设置所有RichTextBox可见，满足"始终可见"需求
        RichTextBox1.Visible = True
        RichTextBox2.Visible = True
        RichTextBox3.Visible = True
        RichTextBox4.Visible = True
    End Sub

    ' 提供只读属性，让MapView可以访问RichTextBox的内容
    Public ReadOnly Property RichTextBox1Control As RichTextBox
        Get
            Return RichTextBox1
        End Get
    End Property

    Public ReadOnly Property RichTextBox2Control As RichTextBox
        Get
            Return RichTextBox2
        End Get
    End Property

    Public ReadOnly Property RichTextBox3Control As RichTextBox
        Get
            Return RichTextBox3
        End Get
    End Property

    Public ReadOnly Property RichTextBox4Control As RichTextBox
        Get
            Return RichTextBox4
        End Get
    End Property
End Class

3. MapView 窗体代码 #

先在设计器中添加4个RichTextBox（命名为rtbMap1至rtbMap4），然后实现鼠标悬停同步内容并显示的逻辑：

Imports System.Windows.Forms
Public Class MapView
    Inherits Form

    Private dashboard As Dashboard

    Public Sub New()
        InitializeComponent()
        HideAllMapRichTextBoxes()
    End Sub

    Public Sub New(dashboardForm As Dashboard)
        InitializeComponent()
        dashboard = dashboardForm
        HideAllMapRichTextBoxes()
    End Sub

    ' 辅助方法：隐藏当前窗体所有RichTextBox
    Private Sub HideAllMapRichTextBoxes()
        rtbMap1.Visible = False
        rtbMap2.Visible = False
        rtbMap3.Visible = False
        rtbMap4.Visible = False
    End Sub

    Private Sub RadioButton1_MouseHover(sender As Object, e As EventArgs) Handles RadioButton1.MouseHover
        HideAllMapRichTextBoxes()
        ' 同步Dashboard的内容到当前窗体的RichTextBox并显示
        rtbMap1.Text = dashboard.RichTextBox1Control.Text
        rtbMap1.Visible = True
    End Sub

    Private Sub RadioButton2_MouseHover(sender As Object, e As EventArgs) Handles RadioButton2.MouseHover
        HideAllMapRichTextBoxes()
        rtbMap2.Text = dashboard.RichTextBox2Control.Text
        rtbMap2.Visible = True
    End Sub

    Private Sub RadioButton3_MouseHover(sender As Object, e As EventArgs) Handles RadioButton3.MouseHover
        HideAllMapRichTextBoxes()
        rtbMap3.Text = dashboard.RichTextBox3Control.Text
        rtbMap3.Visible = True
    End Sub

    Private Sub RadioButton4_MouseHover(sender As Object, e As EventArgs) Handles RadioButton4.MouseHover
        HideAllMapRichTextBoxes()
        rtbMap4.Text = dashboard.RichTextBox4Control.Text
        rtbMap4.Visible = True
    End Sub

    ' ... 其他自定义代码 ...
End Class

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