谢谢逛逛的分享。希望狐爸将这样的好东西加入帮助文档。对于不用窗口、仅需突出显示当前表标题的用户而言,代码可以简化为:
AfterOpenProject:
Dim mp As C1Command.C1DockingTab = BaseMainForm.controls("MainPages")
For Each page As C1Command.C1DockingTabPage In mp.TabPages
page.TabBackColor = Color.pink
page.TabBackColorSelected = Color.cyan
Next
AddHandler mp.ControlAdded, AddressOf MainPages_ControlAdded
全局代码:
Public Sub MainPages_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs)
Dim page As C1Command.C1DockingTabPage = e.Control
page.TabBackColor = Color.pink
page.TabBackColorSelected = Color.cyan
End Sub
[此贴子已经被作者于2019/7/29 19:41:58编辑过]