大红袍老师 谢谢 代码如下完美运行
Select Case e.Sender.Name
Case "Button1", "Button2","合同录入管理","设计人员管理"
e.Form.StopRedraw()
'动态增加或删除控件的代码
Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name As String = e.Sender.Text
Forms(Name).OPEN(-1000,-1000)
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.add(Forms(Name).BaseForm)
e.Form.ResumeRedraw()
End Select
进一步深入,如果我想把任务栏里的选择不同连接项的窗体加入在这个主窗体点击代码 是不是也要加一个判断
Select Case e.link.Name 直接就报错了
下列代码该如何进行代码变通呢
Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name As String = e.Link.Name
Forms(Name).OPEN(-1000,-1000)
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.add(Forms(Name).BaseForm)