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

 

 

 

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

点击page2

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

老师，

   还是有些问题，没找出原因；测试顺序是：点击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

老师，

  再加入一个TabControl3，

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

 

 

老师，

   这样写不行。烦您给看看

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

老师 ，

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

老师，

 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 关闭按钮使用