VB.NET主窗体标签值传递至子窗体标签及错误修复

错误原因 #

你遇到的“Reference to a non-shared member requires an object reference”错误，是因为直接通过MainForm类名访问控件（实例成员），而非通过主窗体的实际运行实例。VB.NET中，非共享成员必须通过类的实例对象调用，不能直接用类名访问。

以下是三种可行的解决方案，同时遵循面向对象封装原则，避免直接操作其他窗体的控件：

方法1：子窗体构造函数传值 #

在打开子窗体时，将主窗体的标签值通过构造函数传递给子窗体，子窗体内部接收后更新自身标签。

MainForm 代码（打开子窗体部分） #

' 打开OPENFORM1
Dim openForm1 As New OPENFORM1(LblUsername.Text, LblLocation.Text)
openForm1.Show()

' 打开OPENFORM2
Dim openForm2 As New OPENFORM2(LblUsername.Text, LblLocation.Text)
openForm2.Show()

OPENFORM1 代码（构造函数部分） #

Public Class OPENFORM1
    ' 带参数的构造函数
    Public Sub New(username As String, location As String)
        ' 必须先调用InitializeComponent()
        InitializeComponent()
        ' 给当前窗体的标签赋值
        Me.LblUsername.Text = username
        Me.LblLocation.Text = location
    End Sub
End Class

OPENFORM2的代码和OPENFORM1完全一致，只需替换类名即可。

方法2：子窗体公共属性传值 #

给子窗体定义公共属性，主窗体打开子窗体后，直接给这些属性赋值，子窗体在属性设置时或加载时更新标签。

OPENFORM1 代码（定义公共属性） #

Public Class OPENFORM1
    Public Property Username As String
        Get
            Return LblUsername.Text
        End Get
        Set(value As String)
            LblUsername.Text = value
        End Set
    End Property

    Public Property LocationText As String
        Get
            Return LblLocation.Text
        End Get
        Set(value As String)
            LblLocation.Text = value
        End Set
    End Property
End Class

MainForm 代码（打开子窗体并赋值） #

Dim openForm1 As New OPENFORM1()
openForm1.Username = LblUsername.Text
openForm1.LocationText = LblLocation.Text
openForm1.Show()

Dim openForm2 As New OPENFORM2()
openForm2.Username = LblUsername.Text
openForm2.LocationText = LblLocation.Text
openForm2.Show()

方法3：事件通知（支持动态更新） #

如果主窗体的标签值在运行时可能发生变化（比如用户切换账号），可以通过事件机制让子窗体自动同步更新。

MainForm 代码（定义事件） #

Public Class MainForm
    ' 定义事件，传递用户名和位置信息
    Public Event UserInfoUpdated(username As String, location As String)

    ' 当主窗体标签值变化时，触发事件
    Private Sub UpdateUserInfo(newUsername As String, newLocation As String)
        LblUsername.Text = newUsername
        LblLocation.Text = newLocation
        ' 触发事件通知所有订阅的子窗体
        RaiseEvent UserInfoUpdated(newUsername, newLocation)
    End Sub

    ' 示例：登录成功后调用更新方法
    Private Sub LoginSuccess()
        UpdateUserInfo("ADMIN", "A")
    End Sub
End Class

OPENFORM1 代码（订阅事件） #

Public Class OPENFORM1
    Private Sub OPENFORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 订阅主窗体的事件
        AddHandler CType(Application.OpenForms("MainForm"), MainForm).UserInfoUpdated, AddressOf UpdateLabels
        ' 初始化时先同步一次当前值
        Dim mainForm As MainForm = CType(Application.OpenForms("MainForm"), MainForm)
        LblUsername.Text = mainForm.LblUsername.Text
        LblLocation.Text = mainForm.LblLocation.Text
    End Sub

    ' 事件处理方法，更新标签
    Private Sub UpdateLabels(username As String, location As String)
        LblUsername.Text = username
        LblLocation.Text = location
    End Sub

    ' 窗体关闭时取消订阅，避免内存泄漏
    Private Sub OPENFORM1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        RemoveHandler CType(Application.OpenForms("MainForm"), MainForm).UserInfoUpdated, AddressOf UpdateLabels
    End Sub
End Class

OPENFORM2的代码和OPENFORM1一致，只需替换类名即可。

注意事项 #

1. 避免直接访问其他窗体的控件，这会破坏封装性，导致代码耦合度高，难以维护。
2. 如果主窗体是启动窗体，可以通过Application.OpenForms("MainForm")获取其实例，或者在打开子窗体时直接传递主窗体实例。
3. 使用事件机制时，记得在子窗体关闭时取消事件订阅，防止内存泄漏。

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