以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 批量设置颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101629) |
-- 作者:jick0526 -- 发布时间:2017/6/4 14:54:00 -- 批量设置颜色 老师,请问下,怎么批量设置表样式配色方案里面的数据区和交替行的背景颜色,表太多了,一个一个设置太麻烦了,我想要所有的表统一设置,谢谢! |
-- 作者:有点色 -- 发布时间:2017/6/4 15:55:00 -- 那你可以用代码设置,代码写到AfterOpenProject事件去
http://www.foxtable.com/webhelp/scr/1577.htm
|
-- 作者:jick0526 -- 发布时间:2017/6/4 18:45:00 -- 老师那请问下,下面的代码改成所有表该怎么改 DataTables("表A").SysStyles("EmptyArea").BackColor = Color.Whit
|
-- 作者:有点色 -- 发布时间:2017/6/4 22:09:00 -- For Each dt As DataTable In DataTables dt.SysStyles("EmptyArea").BackColor = Color.White Next |
-- 作者:jick0526 -- 发布时间:2017/6/5 21:24:00 -- 老师,我批量改颜色,下面的代码要放在哪个事件,我把他放在AfterOpenProject事件放不了 For Each dt As DataTable In DataTables dt.SysStyles("Normal").BackColor = Color.GradientInactiveCaption Next For Each dt As DataTable In DataTables dt.SysStyles("Alternate").BackColor = Color.ActiveCaption Next |
-- 作者:有点蓝 -- 发布时间:2017/6/5 21:58:00 -- AfterOpenProject事件不可能有问题,出什么错误? 一个循环就可以,没有必要2个 For Each dt As DataTable In DataTables dt.SysStyles("Normal").BackColor = Color.GradientInactiveCaption dt.SysStyles("Alternate").BackColor = Color.ActiveCaption Next
|
-- 作者:jick0526 -- 发布时间:2017/6/5 22:16:00 -- 老师,提示下面的错误 GradientinactiveCaption 不是 System.Drawing.Color的成员
|
-- 作者:有点蓝 -- 发布时间:2017/6/5 22:39:00 -- For Each dt As DataTable In DataTables dt.SysStyles("Normal").BackColor = systemColors.GradientInactiveCaption dt.SysStyles("Alternate").BackColor = systemColors.ActiveCaption Next |