[VB.NET] Identificare Form attivo in MDI Parent

[mardok30]

Inserisci nella Click del bottone:

If FormsTrovaChild(Me, "FrmDati") Is Nothing Then
     dim f as new frmdati
     f.mdiparent = me
     f.show()
End if

ed una funzione:

  Private Function FormsTrovaChild(ByVal pFormMdi As Form, ByVal pNomeForm As String) As Control
        pNomeForm = pNomeForm.ToLower()
        Dim zCtrl As Control
        For Each zCtrl In pFormMdi.MdiChildren
            If zCtrl.Name.ToLower() = pNomeForm Then
                zCtrl.Focus()
                Return zCtrl
            End If
        Next zCtrl
        Return Nothing
    End Function 'FormsTrovaChild