MDI 子窗体调用，而不是生成

Question

我有一个 MDI 表单，其中有 3 个嵌套子项。 截至目前，它所能做的就是显示一个新表单。 例如：每次按下菜单按钮时，都会创建新的子表单（Form1）。 现在，如果我再次或随后按下同一菜单按钮，则会创建一个新 Form1，并且它会显示在前一个窗体上。

我想要的是，每次触发事件处理程序（父窗体上的菜单项_单击）时，它不会生成完全“新”的子窗体（弹出一个新窗口），而是会拉出适当的子窗体附在触发器上。

我想这就像重用一个对象一样。

任何帮助将不胜感激。

这是我正在使用的代码示例：

Private Sub RadMenuItem1_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles RadMenuItem1.Click 
Dim NewMDIChild As New InventoryForm1()
'Set the Parent Form of the Child window.'
NewMDIChild.MdiParent = Me
'Display the new form.'
NewMDIChild.Show()

Answer 1

我认为您在这里想要的是表单的类级别变量。 类似 -

'Class level (outside of a method)
Dim NewMDIChild As InventoryForm1

Private Sub RadMenuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles RadMenuItem1.Click

if (NewMDIChild Is Nothing) Then
  NewMDIChild= New InventoryForm1
  NewMDIChild.MdiParent = Me
End if

newFrm.Show()
End Sub

这样，第一次单击菜单项时，将创建一个新的 InventoryForm1 实例，之后，每次单击菜单项时，将重新打开原始实例。

Answer 2

尝试以下操作（请注意，我有一段时间没有做过 VB .Net，因此语法可能会关闭）

Dim ChildInstances As New Dictionary(Of RadMenuItem, Form)

Private Sub RadMenuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles RadMenuItem1.Click 
    Dim ChildForm As Form

    If Not ChildInstances.TryGetValue(RadMenuItem1, Out ChildForm) Then
        Set ChildForm = New InventoryForm1()
        ChildForm.MdiParent = Me
        ChildInstances.Add(RadMenuItem1, ChildForm)
    Else If ChildForm.Disposed Or Not ChildForm.Visible Then 'The user closed the form
        Set ChildForm = New InventoryForm1()
        ChildForm.MdiParent = Me
        ChildInstances(RadMenuItem1) = ChildForm
    End If

    ChildForm.Show()
End Sub