- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于界面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64364)
-- 发布时间：2015/2/12 8:27:00
-- 关于界面
关于界面，如图菜单栏与窗口之间，一种只有一条线，一种有两条线。为什么？怎么才能是一条线？
此主题相关图片如下：qq截图20150212082211.png
此主题相关图片如下：qq截图20150212082221.png
[此贴子已经被作者于2015/2/12 8:27:51编辑过]
-- 发布时间：2015/2/12 8:29:00
--
系统的问题.
-- 发布时间：2015/2/12 8:36:00
--
不在乎是什么问题，只在乎怎么解决。
-- 发布时间：2015/2/12 8:39:00
--
更改你的系统风格为一致即可. WIndows的. 如果用了特殊主题.取消掉
-- 发布时间：2015/2/12 8:43:00
--
同时打开的，风格怎么不一致呢。没用特殊主体。
-- 发布时间：2015/2/12 8:43:00
--
用代码更改了吧 文件发上来我看看
-- 发布时间：2015/2/12 8:48:00
--
\'===================标题窗口下的边框修改颜色====================
Dim clr As Color = Color.FromARGB(255,179,212,255) \'定义一个颜色
\'遍历当前的共有窗口,设置颜色和边框样式
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 =clr
If TypeOf obj2 Is C1Command.C1DockingTab Then
obj2.BorderStyle = 0
End If
Next
End If
Next
注销这个代码就变成两条线，但是其它项目加上代码还是两条线。
-- 发布时间：2015/2/12 8:49:00
--
菜单风格用同一种看看
-- 发布时间：2015/2/12 8:52:00
--
一样
-- 发布时间：2015/2/12 8:53:00
--
两个文件发上来我看看吧