主题：[求助]共有窗口边框问题！！！！！

 边框是弄不了的，关键是弄背景颜色

''打开三个主界面的共有窗口,并设置叠放次序
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

  设置窗口的标题，然后根据标题控制

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
                msgbox(obj2.text)
                obj2.BorderStyle = 0
            End If
        Next
    End If
Next

 可以删除。

 控制窗口打开的顺序，就能控制停靠。