- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]共有窗口边框问题！！！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66318)
-- 发布时间：2015/4/3 11:01:00
-- [求助]共有窗口边框问题！！！！！
如题。采用逛逛同志的方法后，竟然出现了一根线条，如图所示。边框颜色设定为“control”值，边框样式=0，请问怎么回事呢？
此主题相关图片如下：无标题.jpg
-- 发布时间：2015/4/3 11:02:00
--
例子发上来。
-- 发布时间：2015/4/3 12:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:研发管理系统.foxdb |
-- 发布时间：2015/4/3 12:18:00
--
好像在靠近状态栏的位置也有一根横条，只是不太明显
-- 发布时间：2015/4/3 12:24:00
--
边框是弄不了的，关键是弄背景颜色
\'\'打开三个主界面的共有窗口,并设置叠放次序
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
-- 发布时间：2015/4/3 12:28:00
--
上面的颜色值我也试过了，这样以来，这两个共有窗口会连在一起
-- 发布时间：2015/4/3 12:42:00
--
甜哥：这个问题应该有解，就是想办法逐个窗口进行设定，就是不知道代码如何写？上述代码是历遍所有窗口，我一个一个设置不就ok了吗？
-- 发布时间：2015/4/3 14:06:00
--
设置窗口的标题，然后根据标题控制
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
-- 发布时间：2015/4/3 14:36:00
--
怎么出来一个对话框啊？我觉得应该这段红字部分代码的想法是对的，代码不应该是出现对话框吧？而是重新设定导航窗口的Color.FromARGB(240,2400,240)
-- 发布时间：2015/4/3 14:40:00
--
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