共有窗口之间的框线是按照甜老师下面的代码设置的，主窗口和共有窗口之间的框线如何设置？

Forms("标题窗口").show()       \'共有窗口
Forms("导航窗口").show()       \'共有窗口
Forms("主窗口").show()         \'主窗口
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
            \'If obj2.text = "标题窗口" Then
                obj2.BackColor = Color.FromARGB(70,130,180)
            \'Else
                \'obj2.BackColor = Color.red
            \'End If
        Next
    End If
Next

此主题相关图片如下：image 1.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态页签.table

加上

basemainform.controls("mainpages").backcolor = Color.FromARGB(70,130,180)

或者

Forms("标题窗口").show()       \'共有窗口
Forms("导航窗口").show()       \'共有窗口
Forms("主窗口").show()         \'主窗口
Forms("导航窗口").Panel.parent.parent.parent.BringToFront     \'提升窗口
BaseMainForm.controls("MainPages").BringToFront
\'遍历当前的共有窗口,设置颜色和边框样式
For Each obj As object In BaseMainForm.Controls
    obj.BackColor = Color.FromARGB(70,130,180)
Next