主题：[求助]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