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

老师，

   这样写不行。烦您给看看

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

 

 

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

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
       

老师 ，

关闭按钮怎么写呢，根据args(0).name，是吗；没弄妥，烦请老师最后在给展示下。

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

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

老师，

 tab 的隐藏上有闪动，下列标注颜色的部分不起作用怎么弄好呢？

SelectedIndexChanged

 

Dim e As object=args(0)
'************************************************Tab 关闭按钮使用
e.Form.StopRedraw
For Each tab As String In vars("tabidx")
    If e.Form.controls(tab).Visible Then
        vars("tabtitlebtn_" & tab).visible = True
    Else
        vars("tabtitlebtn_" & tab).visible = False
    End If
Next
e.Form.ResumeRedraw
'************************************************Tab 关闭按钮使用

 没测试出闪动，你tab过多？做个例子发上来看看