以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  设置列名高度  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113799)

--  作者:yangwenghd
--  发布时间:2018/1/23 12:22:00
--  设置列名高度
能帮忙看看这个吗?
为什么我一直没搞清楚 设置列高和列名高呢

为什么有时候 红色代码是设置的列名,但有时候有时设置的 列高呢,感谢 感谢 
而黑色的代码 HeaderRows + 0 就是甚至的 列高呢。



Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 0).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 1).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 2).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 3).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 4).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 5).Height = 29
Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 6).Height = 29

Tables("计划表窗口_Table1").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0
Tables("计划表窗口_Table2").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0
Tables("计划表窗口_Table3").Grid.Rows(Tables("计划表").HeaderRows + 0).Height = 0


[此贴子已经被作者于2018/1/23 12:22:48编辑过]

--  作者:有点甜
--  发布时间:2018/1/23 12:29:00
--  

没看懂你什么意思。你要实现什么效果?

 

下面这句代码的意思是,设置第一行、第二行的高度

 

Tables("计划表窗口_Table1").Grid.Rows(0).Height = 100

Tables("计划表窗口_Table1").Grid.Rows(1).Height = 100


--  作者:yangwenghd
--  发布时间:2018/1/23 12:32:00
--  
我想分别设置列名的高度和列的高度,感谢感谢 如果列名有两三层,如果第一层要设置为0第二次设置为10,如果列设置为29,应该怎么做啊,感谢感谢 
[此贴子已经被作者于2018/1/23 12:37:05编辑过]

--  作者:有点甜
--  发布时间:2018/1/23 12:37:00
--  

设置字体参考

 

Dim tb As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(0,1, 0,10) \'第二行第一列到第十列
cs1.font = new font("宋体", 15, FontStyle.Strikeout)
cs1.backcolor = color.yellow
cs1.forecolor = color.red
rng.style = cs1


--  作者:yangwenghd
--  发布时间:2018/1/23 13:02:00
--  
没看懂代码,我先认真看看,
列名的高度可以直接用下面代码设置吗?

Tables("计划表窗口_Table5").Grid.Rows(Tables("日计划").HeaderRows + 6).Height = 29
Tables("计划表窗口_Table1").Grid.Rows(Tables("日计划").HeaderRows + 0).Height = 0

为什么Table1 明明绑定的是 计划表,如果日计划改为 计划表却没有效果,

--  作者:yangwenghd
--  发布时间:2018/1/23 14:21:00
--  
可以了 谢谢 谢谢 
--  作者:有点甜
--  发布时间:2018/1/23 14:31:00
--  

Dim tb As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("样式1")
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(0,1, 0,10) \'第一行第一列到第十列
cs1.font = new font("宋体", 15)
cs1.backcolor = color.yellow
cs1.forecolor = color.red
rng.style = cs1