VB.NET如何从Form2调用Form1中动态创建的Label控件

问题出在你在Form1中声明的lblAnimation是局部变量，作用域仅限声明它的方法内部，Form2无法直接访问。以下是两种可行的修正方案：

方案1：将Label声明为Form1的公共类成员 #

修改Form1的代码，把Label变量提升到类级别并声明为Public：

' 在Form1类的最顶部（所有方法/事件之外）声明
Public lblAnimation As New Label

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 设置Label的基础属性并添加到窗体控件集合
    lblAnimation.Location = New Point(30, 30)
    lblAnimation.Size = New Size(100, 20)
    Me.Controls.Add(lblAnimation)
End Sub

在Form2中调用时，确保Form1已实例化，然后直接访问该公共成员：

' 检查Form1是否已创建，未创建则实例化
If Form1 Is Nothing Then
    Form1 = New Form1()
    Form1.Show()
End If
Form1.lblAnimation.Text = "Test"

方案2：封装成公共方法（更符合面向对象设计） #

为了避免直接暴露窗体控件，推荐在Form1中封装一个修改Label文本的公共方法：

' Form1代码
Private lblAnimation As New Label

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    lblAnimation.Location = New Point(30, 30)
    lblAnimation.Size = New Size(100, 20)
    Me.Controls.Add(lblAnimation)
End Sub

' 提供公共方法供外部调用
Public Sub SetAnimationLabelText(text As String)
    lblAnimation.Text = text
End Sub

在Form2中调用这个方法：

If Form1 Is Nothing Then
    Form1 = New Form1()
    Form1.Show()
End If
Form1.SetAnimationLabelText("Test")

注意事项 #

• 如果是手动创建Form1实例而非依赖VB.NET默认实例，需要将Form1的实例传递给Form2（比如通过Form2的构造函数），再进行调用，避免空引用错误。

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