| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]SetHeaderCellForeColor (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71569) |
| -- 作者：wyz20130512 -- 发布时间：2015/7/14 9:54:00 -- [分享]SetHeaderCellForeColor 昨晚看Table的方法时，经测试发现SetHeaderCellForeColor方法不仅可以设置列标题字体的颜色，还可以设置表中数据的颜色，另SetHeaderCellBackColor和SetHeaderCellFont方法具有类似的功效。 现以SetHeaderCellForeColor方法为例说明： 假定Table的表头层数为n(n>=1) With Tables("XXX") \'假设n=2 For Each c As Col In .Cols .SetHeaderCellForeColor(c.Name,Color.Blue,0) \'0表示第一层的标题,1表示第二层的标题 Next Dim fnt As New Font("黑体",7) For i As Integer = 2 To .Rows.Count + 1 \'(注意循环变量的初值与终止值,与表头的层数有关,设表头的层数为n,则初值为n,终止值为.Rows.Count + n-1) .SetHeaderCellForeColor("列名",Color.Red,i) \'设置指定列数据的颜色 .SetHeaderCellFont("列名",fnt,i) \'设置指定列数据的字体 Next End With 高手勿喷！
[此贴子已经被作者于2015/7/14 9:55:41编辑过]
|
| -- 作者：y2287958 -- 发布时间：2015/7/14 10:01:00 -- 分享就是美德 |
| -- 作者：hanxuntx -- 发布时间：2015/7/14 10:02:00 -- 不错 |
| -- 作者：大红袍 -- 发布时间：2015/7/14 10:03:00 -- 不错，第一次看到这种用法 |