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

如题。采用逛逛同志的方法后，竟然出现了一根线条，如图所示。边框颜色设定为“control”值，边框样式=0，请问怎么回事呢？
此主题相关图片如下：无标题.jpg

 例子发上来。

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

点击浏览该文件:研发管理系统.foxdb

好像在靠近状态栏的位置也有一根横条，只是不太明显

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

 

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

上面的颜色值我也试过了，这样以来，这两个共有窗口会连在一起

甜哥：这个问题应该有解，就是想办法逐个窗口进行设定，就是不知道代码如何写？上述代码是历遍所有窗口，我一个一个设置不就ok了吗？

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

 

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

怎么出来一个对话框啊？我觉得应该这段红字部分代码的想法是对的，代码不应该是出现对话框吧？而是重新设定导航窗口的Color.FromARGB(240,2400,240)

Forms("加载窗口").show()
Forms("导航窗口").show()
Forms("加载窗口").Text = "加载窗口"
Forms("导航窗口").Text = "导航窗口"
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