vb.net - 如果 MDIChild 表格已经打开，请将其放在前面

Question

我一直在努力让它工作......我在 MDIchild 表单上有一个按钮，可以打开另一个 MDIchild 表单，但是如果表单已经打开，它不会识别它并打开一个新的而不是把它带到正面。这是我得到的代码：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim MDIForm4 As New Form4
    MDIForm4.MdiParent = Me
    MDIForm4.Show()

End Sub

这适用于打开新表单的按钮，然后我尝试添加：

    If Not Form4 Is Nothing Then
        Form4.BringToFront()
    End If

但没有积极的结果。有人有什么想法吗？

问候，

豪尔赫·布里托

Answer 1

这是我通常这样做的方式：

For Each f As Form In Application.OpenForms
  If TypeOf f Is frmTest Then
    f.Activate()
    Exit Sub
  End If
Next

Dim myChild As New frmTest 
myChild.MdiParent = Me
myChild.Show()

请注意，这使用 Application.OpenForms，如果您只想要主窗体的子窗体，则可以使用 Me.MdiChildren（假设 Me = 此 MDI 窗体）。

Answer 2

现在修好了！

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


    For Each f As Form In Application.OpenForms
        If TypeOf f Is Form4 Then
            f.Activate()
            Exit Sub
        End If
    Next


    Dim MDIForm As New Form4
    MDIForm.MdiParent = Form2
    MDIForm.Show()

End Sub

我在错误的表单上定义了 MDI 父级！