主题：[求助]PAN 添加名称和关闭按钮及单击事件

老师，

38楼的写法会影响其他控件.backcolor 的属性吗？

 

不会。backcolor的名字你可以换成任意一个名字都可以。

 

 

老师，

麻烦您再给看看吧，例子的关闭按钮是没问题的，关闭按钮的颜色还是改不过来？

 

Select Case e.Sender.name
    Case "p1","p2"
        For Each p As String In "p1,p2".split(",")
            Dim pnl = e.Form.controls(p).basecontrol
            pnl.controls.Remove(pnl.controls("btn_" & p))
        Next
        Dim SysCloseBut As New zxbCloseBut
        SysCloseBut.Top = 6
        ' SysCloseBut.backcolor=e.Sender.BackColor
        pnlbackcolor=e.Sender.BackColor
        SysCloseBut.left = e.Sender.width - SysCloseBut.width - 6
        SysCloseBut.name = "btn_" & e.sender.name
        e.sender.basecontrol.controls.add(SysCloseBut)
       
       
       
       
    Case "TabControl1"
        vars("窗口") = e.Form.panel
        e.Form.panel.Controls.add(_SysCloseBut)
        Dim mp As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
        mp.Padding = New Point(10,6)
_MainPagesTabBackColorSelected=Color.pink
        AddHandler mp.Paint, AddressOf MainPages_Paint
        AddHandler mp.DrawTab, AddressOf MainPages_DrawTab
       
End Select

实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:tabcontrol关闭按钮+pan.table

这个意思？

 

pnlbackcolor=Color.pink
        AddHandler mp.Paint, AddressOf MainPages_Paint
        AddHandler mp.DrawTab, AddressOf MainPages_DrawTab
       

哦 那等于和原来用_MainPagesTabBackColorSelected一样了

 当先点击红色pnl  .backcolor=red了，鼠标转移到Tab 上时候，page 上的关闭按钮也变成了红色，希望这块改善成粉色。来回切换时颜色就不对。

 

此主题相关图片如下：qq图片20171020110450.png

pnlbackcolor 不要设置成公共的。pnlbackcolor定义在Class里面，每个new 出来的按钮单独指定。

老师，

  全局的代码，也要改的，老师给改下吧，改的头疼啊。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:tabcontrol关闭按钮+pan (1).table