Question

我有一个带有3个嵌套子项的MDI表单。截至目前，它所能做的就是显示一个新表格。例如：每次按下菜单按钮，都会创建新的子表单（Form1）。现在，如果我在第二次或以后按下相同的菜单按钮，则会创建一个 new Form1，它将显示在上一个。

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

我想这会像重用一个对象。

非常感谢任何帮助。

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

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

MDI Child表单调用，而不是生成

2 个答案: