将任务栏、Panel1 加入窗体 并在任务栏chick事件中写入如下代码:【该代码运行时 不弹出任何提示】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)
[此贴子已经被作者于2021/9/16 19:09:36编辑过]