VS2015中VB.NET从Form2调用Form1函数失败的问题求助

嘿，我来帮你搞定这个问题！你遇到的核心问题其实很好理解：

你在Form2的按钮点击事件里写了Dim form As New Form1，这行代码会创建一个全新的、隐藏的Form1实例——你调用它的Test()方法，修改的是这个看不见的窗体的TextBox1，而不是你一开始打开的那个Form1，所以自然看不到任何变化啦。

下面给你两种简单可行的解决方案：

方法一：传递Form1实例引用（推荐） #

这种方法最直接，在打开Form2的时候，把当前显示的Form1实例传递给它：

1. 修改Form1的Button1_Click代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 把当前Form1实例(Me)传给Form2的构造函数
    Dim form As New Form2(Me)
    form.Show()
End Sub

2. 修改Form2的代码，添加字段保存Form1的引用：

Public Class Form2
    ' 用来保存打开自己的那个Form1实例
    Private _parentForm As Form1

    ' 修改构造函数，接收Form1实例
    Sub New(parentForm As Form1)
        InitializeComponent()
        _parentForm = parentForm
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 调用真正显示的那个Form1的Test方法
        _parentForm.Test()
    End Sub
End Class

方法二：通过Application.OpenForms获取已打开的Form1 #

如果Form1是程序的主窗体，或者已经处于打开状态，你可以直接从应用程序的已打开窗体集合里找到它：

修改Form2的Button1_Click代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 从已打开窗体中找到Form1实例
    Dim targetForm As Form1 = DirectCast(Application.OpenForms("Form1"), Form1)
    ' 确保找到实例后再调用方法
    If targetForm IsNot Nothing Then
        targetForm.Test()
    End If
End Sub

额外注意点 #

如果你的TextBox1是设置为Private访问级别（默认是Friend，一般没问题），那可能会出现访问权限问题，这时候可以把TextBox1的访问级别改成Friend或者Public，或者在Form1里写一个专门的公共方法来修改文本，比如：

Public Sub UpdateTextBox(text As String)
    TextBox1.Text = text
End Sub

然后在Form2里调用_parentForm.UpdateTextBox("Hello")就可以了。

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