MDI Form : Close all but active

[P07r0457]

I would like to close all mdichildren except the currently active one.

I already have a "close all" function:

Dim f As Form
For Each f In Me.MdiChildren()
        f.WindowState = FormWindowState.Maximized
Next

But how would I write one that doesn't close the active form?

Thank you in advance.

 

[jmcilhinney]

For Each childForm As Form In Me.MdiChildren
    If childForm IsNot Me.ActiveMdiChild Then
        childForm.Close()
    End If
Next childForm

 

[P07r0457]

tried that... get a "Operator 'IsNot' is not defined for type 'System.Windows.Forms.Form'." error.

 

[jmcilhinney]

I wish people would actually read the pages they fill in when registering. If you're not using VB 2005 then change your profile so it doesn't say that you are.

Change:

If childForm IsNot Me.ActiveMdiChild Then

to:

If Not childForm Is Me.ActiveMdiChild Then