以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何返回表某列标题的字体  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97710)
--  作者：pcxjxjhkw
--  发布时间：2017/3/17 10:26:00
--  [求助]如何返回表某列标题的字体
如题，谢谢
--  作者：有点色
--  发布时间：2017/3/17 10:33:00
--  

 如果你没有特殊的指定style，那就是和表的font是一样的

 

Dim grid = CurrentTable.grid
Dim rng As C1.Win.C1FlexGrid.CellRange = grid.GetCellRange(0, 2, 0, 2)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = grid.Styles.Add("样式1")
cs1.TextAlign = 8
cs1.font = new Font("宋体", 20)
rng.style = cs1
--  作者：pcxjxjhkw
--  发布时间：2017/3/17 11:28:00
--  

我用下面代码设置了表的标题字体

CurrentTable.SetHeaderCellFont

 

问题：如何再返回指定列的标题字体
--  作者：有点色
--  发布时间：2017/3/17 11:49:00
--  
Dim grid = CurrentTable.grid
Dim rng As C1.Win.C1FlexGrid.CellRange = grid.GetCellRange(0, 2, 0, 2)
dim cs = rng.style
msgbox(cs.font.size)
--  作者：pcxjxjhkw
--  发布时间：2017/3/17 12:39:00
--  
以下是引用有点色在2017/3/17 11:49:00的发言：
Dim grid = CurrentTable.grid
Dim rng As C1.Win.C1FlexGrid.CellRange = grid.GetCellRange(0, 2, 0, 2)
dim cs = rng.style
msgbox(cs.font.size)

运行，代码报错

 
--  作者：有点色
--  发布时间：2017/3/17 12:51: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.font.size)
End If
--  作者：nblwar
--  发布时间：2017/3/17 13:12:00
--  
A_Table.Grid.Styles.Fixed.Font
--  作者：pcxjxjhkw
--  发布时间：2017/3/17 18:12:00
--  

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

 

红色部分分别是什么参数？
--  作者：有点色
--  发布时间：2017/3/17 18:17:00
--  

(起始行, 起始列, 终止行, 终止列)

 

0,1,0,1 的意思，就是选取0,1这个单元格