以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [分享]SetHeaderCellForeColor (http://foxtable.net/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 -- 不错,第一次看到这种用法 |