【VB.Net Winform单例模式】

赶紧记录下，怕后面又忘记了
需要单例模式的窗口2：From2

Public Class Form2
    Private Shared SingleFrm As Form2
    Private ost As String

    Private Sub New(ByRef os1 As String)

        ' 此调用是设计器所必需的。
        InitializeComponent()
        ost = os1
        ' 在 InitializeComponent() 调用之后添加任何初始化。

        Label1.Text = ost
    End Sub

    Public Shared Function getInstance(ByRef oos As String) As Form2
        If SingleFrm IsNot Nothing Then
            SingleFrm.Dispose()
        End If
        SingleFrm = New Form2(oos)
        Return SingleFrm
    End Function

    Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        SingleFrm = Nothing
    End Sub
End Class

调用Form2的窗口Form1的按钮事件代码：

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Dim fm1 As Form2 = Form2.getInstance(TextBox2.Text)
    fm1.Show()
End Sub