根据窗体名称show 窗体

Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
        Dim TT As Form. = GetForm("MainForm.Form3")
        For Each frmTmp In Me.MdiChildren
            If frmTmp.GetType() Is TT.GetType() Then
                frmTmp.Activate()
                frmTmp.WindowState = FormWindowState.Normal
                Exit Sub
            End If
        Next

        TT.MdiParent = Me
        TT.TopMost = True
        TT.Show()
    End Sub
 
    Private Function GetForm(ByVal FormName As String) As Form
        Dim t As Type = Type.GetType(FormName)

        Dim o As bject = System.Activator.CreateInstance(t)
        Return CType(o, Form)
    End Function

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7220876/viewspace-462506/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/7220876/viewspace-462506/