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

老师，

  让您费心了

 

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

你说的穿透显示，指什么？截图说明。你要什么效果？

 

 

 

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

点击page2

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

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

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

老师，

   还是有些问题，没找出原因；测试顺序是：点击TabControl1 page2 再点击 TabControl1 page1 再点击 TabControl2 page2 再点击 TabControl1 page3 就出现如下

 

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

click事件

 

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","TabControl2"
        For Each tab As String In "TabControl1,TabControl2".split(",")
            Dim mp As C1Command.C1DockingTab = e.Form.Controls(tab).BaseControl
            mp.controls.Remove(e.Form.controls(tab).basecontrol.controls("btn_" & tab))‘这块是不是还有没写完的呢？’
            If e.Form.controls(tab).Visible Then
                vars("btn_" & tab).visible = True
            Else
                vars("btn_" & tab).visible = False
            End If
        Next
       
       
End Select

例子测试，没问题。

老师，

  又反复的测试了下，切换页面的时候尽量往边上所有关闭按钮的地方点就会出现

进来后直接点击TabControl1 page3  尽量往边上 这个位置点

 

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

TabControl1的SelectedIndexChanged事件，写代码

 

        Dim mp As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
        For Each tab As String In "TabControl1,TabControl2".split(",")
            If e.Form.controls(tab).Visible Then
                vars("btn_" & tab).visible = True
            Else
                vars("btn_" & tab).visible = False
            End If
        Next
       

老师，

  再加入一个TabControl3，

将TabControl1、TabControl2，放到里面，一个TabControl3不需要显示关不的按钮，切换TabControl3页面时，如何能不让TabControl1、TabControl2关闭按钮透视过来呢？

 

 

看懂58楼代码，把按钮隐藏起来。