主题：如何通过代码设置表的网格线风格？

 如题 如何通过代码修改表的 字体 大小 网格线颜色等属性？现在每个表都要手动设置 非常麻烦

你写一个自定义函数

 

表生成时，调用一下就可以了啊

关键现在不知道方法和属性 怎么写

找帮助啊

 

系统样式设置

DataTable有个SysStyles集合，用于返回指定名称的系统样式，例如：

DataTables("成绩表").SysStyles("Alternate")

表示成绩表交替行的样式。

系统样式包括：

Normal：              数据区
Frozen：              冻结区
Alternate:            交替行
EmptyArea：           空白区
Fixed：               标题行
Highlight:            选定区域
Focus：               焦点单元格
ModifiedCell:         已修改单元格
SelectedRowHeader：   选定行的行标题
SelectedColumnHeader：选定列的列标题
CurrentRow:           当前行
GrandTotal：          总计行
Subtotal0：           小计行0
Subtotal1：           小计行1
Subtotal2：           小计行2
Subtotal3：           小计行3
Subtotal4：           小计行4
Subtotal5：           小计行5

样式包括以下属性：

BackColor：    背景颜色
ForeColor：    字体颜色
FontBold：     逻辑型，设为True，字体加粗
FontItalic：   逻辑型，设为True，字体倾斜
FontStrikeout：逻辑型，设为True，字体带删除线
FontUnderline：逻辑型，设为True，字体带下划线

示例

希望将空白区的背景颜色设为白色：

DataTables("表A").SysStyles("EmptyArea").BackColor = Color.White

网格线属性

 

Tables("表A").grid.styles.Normal.Border.Color = Color.Red
Tables("表A").grid.styles.Normal.Border.Style = 1
Tables("表A").grid.styles.Normal.Border.width = 5
Tables("表A").grid.styles.Normal.Border.Direction = 2 '0-2

Dim t As Table = Tables("表A")
t.Font = new font("宋体",10)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.font = new Font("宋体",20)
t.grid.rows(0).height = 50
For i As Integer = 0 To t.cols.count - 1
    t.grid.SetCellStyle(0, i+1, cs1)
Next

 谢谢

 另外想请教下老师 系统颜色 ActiveCaption 这种 怎么获取到对应的颜色？

呃，不同的系统风格，对应的颜色也会不同。

 

https://msdn.microsoft.com/zh-cn/library/vstudio/system.windows.systemcolors.aspx