主题：[求助]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