主题：窗口显示异常

修改代码

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

重新打开项目测试，即可

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