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

老师，

对 就是这个意思 

老师，

  将代码放到Click  事件，有屏幕闪动的情况，先不出现关闭按钮，再点击一遍，不闪动才能出现关闭按钮；添加e.Form.StopRedraw，又发现点击就重复下面的操作，按钮不能很好的出现，该怎么做呢

Select Case e.Sender.name
    Case "p1","p2"
        e.Form.StopRedraw
        _SysCloseBut.Top = 6
        '_MainPagesTabBackColorSelected =e.Sender.BackColor
        _SysCloseBut.left = e.Sender.width - _SysCloseBut.width - 6
        e.Form.ResumeRedraw
        e.Sender.basecontrol.Controls.add(_SysCloseBut)
        
    End Select

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

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

测试步骤，打开窗口，点击红色的PANL 闪动（可能是PANL大小变化影响），没有关闭按钮；再次点击红色的PANL 才会出现关闭按钮。

刚才测试点击红色的PANL有关闭按钮的时候，鼠标移到tabPage 上再移回到PANL时，PANL关闭按钮也是消失了？ 希望关闭按钮和鼠标点击的控件保持一致。

老师，

   24楼的能给改下吗？

其实，界面中页面中的不同位置，渴望新奇和高大上的东西。

老师

放到我这里，下列代码应该是哪里错误

click 代码

 

e.Form.controls(“p1”).basecontrol.controls.Remove(e.Form.controls(“p1”).basecontrol.controls("pnlsys_title_p1" ))

就是移除不掉 ，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

老师，

 关闭的函数怎么写？

 

 

msgbox(args(0).name)

 

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