边框是弄不了的,关键是弄背景颜色
''打开三个主界面的共有窗口,并设置叠放次序
Forms("加载窗口").show()
Forms("导航窗口").show()
'Forms("加载窗口").Panel.parent.parent.parent.BringToFront
Forms("导航窗口").Panel.parent.parent.parent.BringToFront '提升窗口
BaseMainForm.controls("MainPages").BringToFront
''遍历当前的共有窗口,设置颜色和边框样式
For Each obj As object In BaseMainForm.Controls
If TypeOf obj Is C1Command.C1CommandDock Then
Dim C1DT As C1Command.C1CommandDock = obj
For Each obj2 As object In C1DT.Controls
obj2.BackColor = Color.FromARGB(70,130,180)
If TypeOf obj2 Is C1Command.C1DockingTab Then
obj2.BorderStyle = 0
End If
Next
End If
Next