如何使用一个变量保持对不同形式的引用

Question

• 我有一个具有固定大小和一些控件的表单（名为 Form1）。
• 我创建了另一个表单（名为 Form2），它是 Form1 的副本，唯一的区别是固定大小不同。
• 我创建了一个“SharedForm”表单，其中包含两个表单使用的子项和函数（因此我不必为每个表单编写它们）。

我的问题是：我不知道如何为任何一种形式保留参考（一次只有一个，永远）。

如果我将 FormRef 变量声明为 Form，则会收到“label1 不是表单成员”的错误消息。 （否则，如果我声明为 Form1 或 Form2 它可以正常工作，但当然只适用于一种形式）

---

SharedForm 如下所示：

Public Class SharedForm

    Public Shared FormRef As Form 'problem is here

    Private Sub SharedForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormRef = New Form2
        FormRef.Show()
    End Sub

    Public Shared Sub Button1_Click(sender As Object, e As EventArgs)
        FormRef.Label1.Text = "test"
    End Sub

End Class

---

Form1 和 Form2 是这样的。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf SharedForm.Button1_Click
    End Sub
End Class

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf SharedForm.Button1_Click
    End Sub
End Class

Answer 1

只是一个类，而不是一个表单。

Public Class EventCode
    Public Shared Sub Button1Click(Sender As Form)
        Dim frm As Form = Nothing
        If Sender.Name = "Form1" Then
            frm = DirectCast(Sender, Form1)
        ElseIf Sender.Name = "Form2" Then
            frm = DirectCast(Sender, Form2)
        End If
        frm.Controls("Label1").Text = "Hello World"
    End Sub
End Class

在表格 1 中

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    EventCode.Button1Click(Me)
End Sub

Form1 上的标签显示“Hello World”

在 Form2 中

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    EventCode.Button1Click(Me)
End Sub

Form2 上的标签显示“Hello World”