MDI child forms

[Gerry]

I have an MDI form and a child form to go with it.
The child form is called frmChild. There is also a button
on the MDI form and when pressed invokes the following
code

-------------------------
dim frm as new frmChild

frm.mdiparent = me

frm.show()
-------------------------

How can I loop through all of the visible forms in this
MDI ? (e.g. stop more than one instance of the same child
form appearing - or count the number of instances taht
exist before opening up another)

Thanks
Gerry

 

[Armin Zingler]

I have an MDI form and a child form to go with it.
The child form is called frmChild. There is also a button
on the MDI form and when pressed invokes the following
code

-------------------------
dim frm as new frmChild

frm.mdiparent = me

frm.show()
-------------------------

How can I loop through all of the visible forms in this
MDI ? (e.g. stop more than one instance of the same child
form appearing - or count the number of instances taht
exist before opening up another)

The Container has an MdiChildren property.

 

[T Perkins]

Gerry,
this is what im using to only allow one instance of a child form
and to count a form

Dim FRM As Form

For Each FRM In Me.MdiChildren
If FRM.Text = "frmChildfm" Then
' do something with child form if found
FRM.Focus() 'force child form to show once found
Exit Sub
else
frmchild.show ' else load a new instance of form
End If
Next

Now to count the child forms

Dim FRM As Form
Dim cnt As Integer = 0
Dim total As Integer = 0

For Each FRM In fmMain.MdiChildren
If FRM.Text = "frmChildfm" Then
cnt += 1 ' count number of specific form
End If
total += 1 ' count total number of child forms
Next

Hope this helps
tony