vb.net - MDI 子窗体在新打开时关闭

Question

当我想打开一个新表单时如何关闭 MDI Chid 表单。

通过这种方式，我打开了它们，但我想在打开新的时关闭前一个。

 Private Sub DostupniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DostupniToolStripMenuItem.Click
        Dim frm As New FrmDostupniZaposlenici
        frm.MdiParent = Me
        frm.Show()
        frm.WindowState = FormWindowState.Maximized
    End Sub

Private Sub DodajToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodajToolStripMenuItem.Click
    Dim frm As New frmDodajZaposlenika
    frm.MdiParent = Me
    frm.Show()
    frm.WindowState = FormWindowState.Maximized
End Sub

我有大约 10 个 mdi 子表单。

编辑:

新代码。如何防止在表单上打开表单。示例我想在新表单打开时关闭所有其他 MDI 表单。 这样，如果我单击工具条中的 4 个按钮，我会打开 4 个表单。我不想要这样。如果我单击按钮 3，我想关闭之前的表单并加载 form3。

    Private Sub DostupniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DostupniToolStripMenuItem.Click
    FrmDostupniZaposlenici.MdiParent = Me
    FrmDostupniZaposlenici.Show()
    FrmDostupniZaposlenici.WindowState = FormWindowState.Maximized
End Sub

Private Sub DodajToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodajToolStripMenuItem.Click
    frmDodajZaposlenika.MdiParent = Me
    frmDodajZaposlenika.Show()
    frmDodajZaposlenika.WindowState = FormWindowState.Maximized
End Sub

Private Sub IzmjeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IzmjeniToolStripMenuItem.Click
    frmIzmjenaZaposlenika.MdiParent = Me
    frmIzmjenaZaposlenika.Show()
    frmIzmjenaZaposlenika.WindowState = FormWindowState.Maximized
End Sub

Private Sub ObrisiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObrisiToolStripMenuItem.Click
    frmObrisiZaposlenika.MdiParent = Me
    frmObrisiZaposlenika.Show()
    frmObrisiZaposlenika.WindowState = FormWindowState.Maximized
End Sub

Answer 1

只需循环所有打开的 MDI 子窗体并关闭它们...

For Each f As Form In Me.MdiChildren
     f.Close()
Next