Private Sub ShowForm(ChildFormName As String, FormText As String, FormName As String)
Dim ChilForm As Form = New Form()
ChilForm = CType(Activator.CreateInstance(Type.GetType("WinFormVB01." & ChildFormName)), Form)
ChilForm.MdiParent = Me
ChilForm.Text = FormText
ChilForm.Name = FormName
ChilForm.WindowState = FormWindowState.Maximized
ChilForm.Show()
End Sub
现在使用此代码,有一个问题,会再跑出第二个新的窗体,但不是我要效果
我希望效果是已经打开的视窗,如果再点的话
如果下层,会跑到最上层