.NET程序中如何从Form2访问Form1的Public Sub tabs方法

方法1：给Form2传递Form1的实例引用 #

在创建Form2时，把Form1的实例传给Form2，让Form2持有这个引用，就能直接调用tabs方法。

1. 先在Form2中添加Form1类型的字段：

Public Class Form2
    Private _parentForm As Form1 ' 保存Form1的引用

    ' 重载构造函数，接收Form1实例
    Public Sub New(parentForm As Form1)
        InitializeComponent()
        _parentForm = parentForm
    End Sub
End Class

2. 在Form1里创建Form2实例时传入自身：

' 在Form1中创建并嵌入Form2的代码段
Dim form2 As New Form2(Me)
' 将form2嵌入到Form1的容器（如Panel/Grid）中
Panel1.Controls.Add(form2)
form2.Dock = DockStyle.Fill

3. 在Form2中直接调用Form1的tabs方法：

' Form2中的触发逻辑（比如按钮点击事件）
_parentForm.tabs("新标签页标题")

方法2：用事件委托解耦（推荐） #

如果不想让Form2直接依赖Form1的类型，用事件方式能降低耦合度，代码更灵活。

1. 在Form2里定义触发打开标签页的事件：

Public Class Form2
    ' 定义事件，传递标签页标题参数
    Public Event RequestOpenTab(ByVal tabName As String)

    ' 示例：按钮点击时触发事件
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RaiseEvent RequestOpenTab("从Form2打开的标签页")
    End Sub
End Class

2. 在Form1中创建Form2时订阅该事件：

Dim form2 As New Form2()
' 订阅事件，触发时调用自身的tabs方法
AddHandler form2.RequestOpenTab, AddressOf Me.tabs
' 嵌入Form2到容器
Panel1.Controls.Add(form2)
form2.Dock = DockStyle.Fill

这种方式下Form2无需了解Form1的具体实现，只负责触发事件，Form1自行处理打开标签页的逻辑，耦合度更低。

方法3：通过Parent属性查找Form1实例 #

如果Form2直接嵌入在Form1的控件容器中，可通过FindForm()直接获取顶层的Form1实例：

' Form2中的调用代码
Dim parentForm As Form1 = TryCast(Me.FindForm(), Form1)
If parentForm IsNot Nothing Then
    parentForm.tabs("新标签页")
End If

注：FindForm()比逐层遍历Parent更可靠，能直接定位到最顶层的窗体实例。

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