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

就是移除不掉 ，vars("p1_pidx")  是PNL的集合

Dim e As object=args(0)
Select Case e.sender.Gettype.name
    Case "panel"
        Dim btntype As String=e.sender.name.SPLIT("_")(1)
        Dim pgname As String=e.sender.name.SPLIT("_")(2)
        Select Case btntype
            Case "title"
                For Each c As String In vars("p1_pidx")
                    e.Form.controls(c).basecontrol.controls.Remove(e.Form.controls(c).basecontrol.controls("pnlsys_title_" & pgname))
                Next
               
                Dim SysCloseBut As New zxbCloseBut
                SysCloseBut.Top = 6
                SysCloseBut.left = e.Sender.width - SysCloseBut.width - 6
                SysCloseBut.name = "pnlsys_title_" & pgname
                e.sender.basecontrol.controls.add(SysCloseBut)
                      End Select
End Select

试试改成

For Each c As String In vars("p1_pidx")

    msgbox(c)
    e.Form.controls(c).basecontrol.controls.Remove(e.Form.controls(c).basecontrol.controls("pnlsys_title_" & c.name.split("_")(2)))
Next

老师，

 关闭的函数怎么写？

msgbox(args(0).name)

提示 索引超出了数组的界限

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

args(0).form。name

显示错误，不是成员？

建议给 SysCloseBut 添加一个属性，用来存放窗口对象。然后赋值

SysCloseBut.Form = e.Form

全局代码那里，在Class里面，要加上代码

Public form As Winform.Form = Nothing

最后一个问题

全局代码

'填充关闭背景，如何能添加条件，就是等于其上层的背景颜色，_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

全局代码里面Class里面，加入backcolor属性

Public backcolor As Color

你new之后，给其赋值

SysCloseBut.backcolor = color.red

老师

直接

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

按照38楼操作。之后提示什么错误？

你下面的代码改了没有？

g.Clear(backcolor)