如何制作单实例表单

Question

我有一个召唤表单的 mdicontainer 表单。我的问题是，当用户再次单击该表单的菜单时，它还会创建另一个实例。

我所做的是声明一个带有公共变量的公共类，例如：Boolean isFormOneOpen = false。然后每次formOne打开时，它都会先检查我刚才声明的全局变量是否为假，如果是，则实例化一个formOne的对象，然后显示它。否则，什么也不做。非常静态，想象一下如果我有很多表单，我必须为每个表单声明一个变量来检查它是否已经打开。您能为我提供解决方案吗？也许是接受表单的方法？或者任何更聪明的方法来做到这一点。

Answer 1

您不需要变量，您可以迭代 MdiChildren 集合以查看表单是否已打开。例如：以

Private Sub btnViewChild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewChild.Click
    For Each child In Me.MdiChildren
        If TypeOf child Is Form2 Then
            child.WindowState = FormWindowState.Normal
            child.Focus()
            Exit sub
        End If
    Next
    Dim frm As New Form2
    frm.MdiParent = Me
    frm.Show()
End Sub

VB.NET 为中心的解决方案：

Private Sub btnViewChild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewChild.Click
    Form2.MdiParent = Me
    Form2.WindowState = FormWindowState.Normal
    Form2.Show
End Sub

Answer 2

声明表单类型的变量，而不是布尔值。然后只需确保该变量不是 Nothing 并调用它的 .Open() 方法。这有一个很好的副作用，如果现有的表单实例已经打开，它也会将其带到前面。

更好的是，在 VB.Net 2.0 及更高版本中，所有表单都有一个与其类型同名的默认实例，因此您只需说出 FormName.Open() 即可完成。不过，我以前没有在 MDI 情况下尝试过这个。