- 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=172289)
-- 发布时间：2021/10/6 16:18:00
-- 自定义表样式
如何在项目属性中自定义表样式应用于所有表
此主题相关图片如下：表样式.jpg
-- 发布时间：2021/10/7 10:03:00
--
项目属性中的表样式都不怎么满意，表样式设置中又要一个表一个表的设置，想用自定义函数统一表样式又不会，希望老师做一个样板
Dim b As DataTable = DataTables("表A")
b.SysStyles("EmptyArea").BackColor = Color.black \'空白区背景颜色
b.SysStyles("Alternate").BackColor = Color.Azure \'交替行颜色(蔚蓝色)
b.SysStyles("CurrentRow").BackColor = Color.DarkOrange \'当前行颜色(深橙色)
\'b.SysStyles("CurrentRow").ForeColor = Color.White \'当前行字颜色
b.SysStyles("Fixed").BackColor = Color.Brown \'标题行颜色(棕色)
b.SysStyles("Fixed").ForeColor = Color.White \'标题行字颜色
b.SysStyles("SelectedRowHeader").BackColor = Color.DarkCyan \'选定行的行标题颜色(深青色)
b.SysStyles("SelectedRowHeader").ForeColor = Color.White \'选定行的行标题字颜色
b.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan \'选定列的列标题颜色(深青色)
b.SysStyles("SelectedColumnHeader").ForeColor = Color.White \'选定列的列标题字颜色
b.SysStyles("Focus").BackColor = Color.DarkCyan \'焦点单元格颜色(深青色)
b.SysStyles("Focus").ForeColor = Color.White \'选定列的列标题字颜色
’表样式_样式设置_行号颜色_普通行（默认：SteelBlue）
CurrentTable.Grid.Styles("UnchangedRowHeader").forecolor= Color.White
最后一行代码可能有点小问题
-- 发布时间：2021/10/7 10:27:00
--
Tables("表A").Grid.Styles("UnchangedRowHeader").forecolor= Color.White
-- 发布时间：2021/10/7 10:50:00
--
老师，能按上面代码做个自定义函数吗？
-- 发布时间：2021/10/7 10:54:00
--
dim name as string =args(0)
dim t as table = Tables(name)
dim dt as datatable = t.datatable dt.SysStyles("EmptyArea").BackColor = Color.black
……
t.Grid.Styles("UnchangedRowHeader").forecolor= Color.White
调用
Functions.Execute("xx函数","表A")
-- 发布时间：2021/10/7 10:57:00
--
1楼的图是使用表样式属性设置的，设置行标题颜色时连带序号列颜色一起设置了。如果通过2楼代码设置行标题颜色，则序号列颜色不能一起设置。
序号列的颜色如何设置？
[此贴子已经被作者于2021/10/7 10:58:01编辑过]
-- 发布时间：2021/10/7 11:09:00
--
可用的属性：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82339&skin=0
-- 发布时间：2021/10/7 18:57:00
--
与1楼图相比，序号列选定行的行号不能显示
此主题相关图片如下：表样式.jpg
以下是自定义函数
Dim name As String =args(0)
Dim b As Table = Tables(name)
\'Dim dt As DataTable = b.DataTable
\'dt.SysStyles("EmptyArea").BackColor = Color.black \'空白区背景颜色
b.UseVisualStyle = False \'关闭系统界面风格,否则部分设置不起作用
b.ListMode = True \'整行突出显示
b.SysStyles("EmptyArea").BackColor = Color.black \'空白区背景颜色
b.SysStyles("Alternate").BackColor = Color.Azure \'交替行颜色(蔚蓝色)
b.SysStyles("CurrentRow").BackColor = Color.DarkOrange \'当前行颜色(深橙色)
\'b.SysStyles("CurrentRow").ForeColor = Color.White \'当前行字颜色
b.SysStyles("Fixed").BackColor = Color.Brown \'标题行颜色(棕色)
b.SysStyles("Fixed").ForeColor = Color.White \'标题行字颜色
b.SysStyles("SelectedRowHeader").BackColor = Color.DarkCyan \'选定行的行标题颜色(深青色)
b.SysStyles("SelectedRowHeader").ForeColor = Color.White \'选定行的行标题字颜色
b.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan \'选定列的列标题颜色(深青色)
b.SysStyles("SelectedColumnHeader").ForeColor = Color.White \'选定列的列标题字颜色
b.SysStyles("Focus").BackColor = Color.DarkCyan \'焦点单元格颜色(深青色)
b.SysStyles("Focus").ForeColor = Color.White \'选定列的列标题字颜色
b.Grid.Styles("UnchangedRowHeader").forecolor = Color.White
-- 发布时间：2021/10/7 20:08:00
--
色彩对比不明显而已，换个其它颜色，比如红色，黑色，.......
-- 发布时间：2021/10/7 20:25:00
--
与1楼图颜色设置一样，1楼是在样式属性中设置的。
此主题相关图片如下：表样式.jpg