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

实例发上来测试。

这个意思？

 

pnlbackcolor=Color.pink
        AddHandler mp.Paint, AddressOf MainPages_Paint
        AddHandler mp.DrawTab, AddressOf MainPages_DrawTab
       

pnlbackcolor 不要设置成公共的。pnlbackcolor定义在Class里面，每个new 出来的按钮单独指定。

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

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

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

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

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

例子测试，没问题。

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
       

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

TabControl3的SelectedIndexChanged事件，写代码

 
        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