[VB.net] form mdi e form secondarie

[g.scardigno]

Una domanda "semplice"....
Ho una form MDI con un menù. ogni item del menu mi apre una form figlio:

   
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click 
Dim frm As New Anagrafica 
frm.MdiParent = Me 
frm.Show() 
End Sub

Il problema è questo: se riclicco su lo stesso item di menù mi apre una nuova form identica alla precedente...
Io vorrei che mi rivisualizzasse quella gia aperta..
Nel caso ce ne siano 2 diverse me la riporti in primo piano...
Cosi deve fare maturalmente per tutte cioè del tipo:
'----------
Se [la Form è gia stata visualizzata (o in primo piano o dietro)] allora
visalizzala
altrimenti
creala
visualizzala
end se
'----------
Grazie...

[xegallo]

dalla prossima si chiude
I titoli

[g.scardigno]

scusate moderatori...
avevo dimenticato ancora una volta il linguaggio

[g.scardigno]

Ragazzi devo lavorare sempre da solo....
Ecco a voi la soluzione...

    Function getForm(ByVal conteiner As Form, ByVal nome As String) As Form
        Dim f As Form
        For Each f In conteiner.MdiChildren
            If f.Name = nome Then
                Return f
                Exit Function
            End If
        Next
    End Function

 
    Private Sub MenuAnagrafica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuAnagrafica.Click
        If Me.MdiChildren.Length = 0 Or getForm(Me, "anagrafica") Is Nothing Then
            Dim frm As New Anagrafica
            frm.Name = "anagrafica"
            frm.MdiParent = Me
            frm.Show()
        Else
            'getForm(Me, "anagrafica").Show()
            getForm(Me, "anagrafica").Focus()
        End If
    End Sub

La seconda procedura su effettua per ogni menuitem che apre ogni form...

Ciao Ciao :mavieni: