主题：窗口显示异常

请问一下  我点击查询之后    怎么确保  并列窗口 和主窗口 一直都显示在最前面 ？ 

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

点击浏览该文件:并列窗口不可见.foxdb

此主题相关图片如下：企业微信截图_15590334926924.png

修改代码

 

MainTable =Tables("表A")
Forms("上导航").Show
Forms("上导航").panel.parent.parent.BringToFront()
Forms("左导航").Show

 

重新打开项目测试，即可

谢谢老师  请问是否可以固定窗口的大小  ？ 不允许拖动调整？ 怎么去掉两个窗口之前那根线  或者设置小一点
此主题相关图片如下：企业微信截图_15590899265408.png

1、不允许改变大小：窗口的sizechanged事件，写代码

 

e.form.panel.parent.parent.width = 200

 

2、不能控制，只能改变颜色

 

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