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

找到了 我再看看

如何 显示 args(0).对应的窗口名称呢

 

args(0).form。name

显示错误，不是成员？

 

 

最后一个问题

全局代码

'填充关闭背景，如何能添加条件，就是等于其上层的背景颜色，_MainPagesTabBackColorSelected在 panl 指定了颜色，当鼠标指向Tab控件时，颜色切换不来
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = pevent.Graphics
g.Clear(_MainPagesTabBackColorSelected)
End Sub

老师

直接

SysCloseBut.backcolor = color.red 为什么不行呢

老师，

38楼的写法会影响其他控件.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

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

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

 

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

老师，

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

老师，

  让您费心了

 

还有一个问题，就是添加进去的关闭按钮，切换页面会穿透显示不知道怎么设置，不穿透。