专家坐堂-窗体加入窗体代码没有对应起作用麻烦老师们帮忙看看谢谢！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Sender.Name

Case "Button1","file","user","xuexi"

e.Form.StopRedraw()

\'动态增加或删除控件的代码

Dim PB As WinForm.Panel = e.Form.Controls("Panel1")

MessageBox.Show(e.Sender.name)

Dim Name As String = e.Sender.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)

e.Form.ResumeRedraw()

End Select

想实现点击不同的按钮，自动传递不同的按钮名称，然后对应将名称匹配窗体加入到Panel1中

运行效果如下：只有一个按钮点击有弹出值，且值对应的名称窗体也不显示，麻烦老师帮忙指导下谢谢！

此主题相关图片如下：141.gif

其中标题为1的按钮单独添加了按钮事件代码\'MessageBox.show(e.sender.name)