主题：[分享]表样式设置

批量设置表样式，新手参考，老手优化，谢谢。

 

For Each tb As Table In Tables

    tb.UseVisualStyle = False '关闭系统界面风格,否则部分设置不起作用

    tb.ListMode = True   '整行突出显示

    tb.FocusRect = False '不突出显示焦点单元格

    tb.grid.ScrollBars = 0 '设置滚动条(0不显示,1水平显示,2垂直显示,3全部显示)

    tb.grid.styles.Normal.Border.Color = Color.DarkGray '网格线条颜色

    tb.grid.styles.Normal.Border.Style = 1     '网格线条类型,1实线;2.双线;……  7:虚线

    tb.grid.styles.Normal.Border.width = 1     '网格线宽度

    tb.grid.styles.Normal.Border.Direction = 2 '网格线方向:0横竖,1横向,2竖向

    tb.Grid.Styles("UnchangedRowHeader").ForeColor = Color.White '行号字体颜色

    tb.Grid.Styles("UnchangedRowHeader").BackColor = color.Black '行号背景颜色

    tb.Grid.Styles("AddedRowHeader").ForeColor = Color.White '新增行号字体颜色

    tb.Grid.Styles("AddedRowHeader").BackColor = color.Black '新增行号背景颜色

    tb.Grid.Styles("Fixed").ForeColor = Color.White '标题行字体颜色

    tb.Grid.Styles("Fixed").BackColor = color.Black '标题行背景颜色

    tb.Grid.Styles("Normal").BackColor = color.DimGray '数据区背景颜色

    tb.Grid.Styles("Normal").ForeColor = color.Silver '数据区字体颜色

    tb.Grid.Styles("EmptyArea").BackColor = Color.Transparent '空白区背景颜色

    tb.Grid.Styles("CurrentRow").BackColor = Color.Black '当前行背景颜色

    tb.Grid.Styles("CurrentRow").ForeColor = Color.White '当前行字体颜色

    tb.Font = new Font("微软雅黑",10,FontStyle.Regular) '设置字体大小及样式

    tb.SetHeaderRowHeight(25,25) '标题行高度

    tb.DefaultRowHeight  = 25 '行高

Next