在窗口管理直接打开窗口正常:
Forms("流程管理").Open
在主界面的窗口中打开窗口报错,以前没报过错,不知哪里原因?
Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = True '隐藏导航栏
Dim PB As WinForm.Panel = e.Form.Controls("Panel4")
Dim Name As String = "流程管理"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
'Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
'PB.BaseControl.Controls.Clear
PB.BaseControl.Controls("panel5").visible = False
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
Forms(Name).BaseForm.left = (pb.width-Forms(Name).BaseForm.width) / 2
Forms(Name).BaseForm.top = (pb.height-Forms(Name).BaseForm.height) / 2
Forms("流程管理").Open
此主题相关图片如下:dd.jpg