Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取表指定列的标题的背景色


  共有1565人关注过本帖树形打印复制链接

主题:[求助]如何获取表指定列的标题的背景色

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]如何获取表指定列的标题的背景色  发帖心情 Post By:2017/3/17 18:03:00 [只看该作者]

如题,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/17 18:25:00 [只看该作者]

Dim grid = CurrentTable.grid
Dim rng As C1.Win.C1FlexGrid.CellRange = grid.GetCellRange(0, 1, 0, 1) '第一列
Dim cs = rng.style
If cs Is Nothing Then
    msgbox("没有样式")
Else
    msgbox(cs.BackColor.toString)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/17 18:29:00 [只看该作者]

以下是引用有点色在2017/3/17 18:25:00的发言:
Dim grid = CurrentTable.grid
Dim rng As C1.Win.C1FlexGrid.CellRange = grid.GetCellRange(0, 1, 0, 1) '第一列
Dim cs = rng.style
If cs Is Nothing Then
    msgbox("没有样式")
Else
    msgbox(cs.BackColor.toString)
End If

grid.GetCellRange(0, 1, 0, 1)

第N列标题该如何引用?

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/17 20:18:00 [只看该作者]

grid.GetCellRange(0, 2, 0, 2) '第二列

grid.GetCellRange(0, 1, 0, 2) '第一列 至 第二列

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/17 20:20:00 [只看该作者]

谢谢,

 

另:系统中表头的默认颜色值是多少?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/17 20:31:00 [只看该作者]

这个不知道,上网找个取色工具自己取色

 回到顶部