Foxtable(狐表)用户栏目专家坐堂 → 求助:如何实现当前窗体中的按钮标题 点击后 自动将对应按钮标题的窗体加入窗体呢?目前已经实现单个按钮加入,如何实现通用多个按钮加入,如逛逛老师的那种任务栏名称通用获取。


  共有2721人关注过本帖平板打印复制链接

主题:求助:如何实现当前窗体中的按钮标题 点击后 自动将对应按钮标题的窗体加入窗体呢?目前已经实现单个按钮加入,如何实现通用多个按钮加入,如逛逛老师的那种任务栏名称通用获取。

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(大红袍)加入判断 Select Case e.Se...  发帖心情 Post By:2015/10/9 20:42:00 [只看该作者]

大红袍老师 谢谢  代码如下完美运行

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)

 


 


 回到顶部
总数 15 1 2 下一页