- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口显示异常 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135520)
-- 发布时间：2019/5/28 16:53:00
-- 窗口显示异常
请问一下 我点击查询之后 怎么确保 并列窗口 和主窗口 一直都显示在最前面 ？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:并列窗口不可见.foxdb |
此主题相关图片如下：企业微信截图_15590334926924.png
-- 发布时间：2019/5/28 17:10:00
--
修改代码
MainTable =Tables("表A")
Forms("上导航").Show
Forms("上导航").panel.parent.parent.BringToFront()
Forms("左导航").Show
重新打开项目测试，即可
[此贴子已经被作者于2019/5/28 17:10:07编辑过]
-- 发布时间：2019/5/29 8:05:00
--
谢谢老师 请问是否可以固定窗口的大小 ？ 不允许拖动调整？ 怎么去掉两个窗口之前那根线 或者设置小一点
此主题相关图片如下：企业微信截图_15590899265408.png
[此贴子已经被作者于2019/5/29 8:33:40编辑过]
-- 发布时间：2019/5/29 9:29:00
--
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