以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]能否设置记录窗口中某行字体、字号、右靠齐  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97634)
--  作者：jyh7081
--  发布时间：2017/3/15 23:00:00
--  [求助]能否设置记录窗口中某行字体、字号、右靠齐
能否用代码设置记录窗口中某行字体、字号、右靠齐？
--  作者：有点色
--  发布时间：2017/3/16 0:39:00
--  

参考代码

 

Dim brgd = e.Form.Controls("RecordGrid1").basecontrol
Dim rng As C1.Win.C1FlexGrid.CellRange = brgd.GetCellRange(2, 0, 2, 0)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = brgd.Styles.Add("样式1")
cs1.TextAlign = 8
rng.style = cs1

 
--  作者：jyh7081
--  发布时间：2017/3/20 23:12:00
--  

修改这段代码能否实现记录窗口缩进字符的效果？

 

Dim brgd = e.Form.Controls("RecordGrid1").basecontrol
Dim rng As C1.Win.C1FlexGrid.CellRange = brgd.GetCellRange(2, 0, 2, 0)
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = brgd.Styles.Add("样式1")


cs1.？？？？？？

 

rng.style = cs1
--  作者：有点蓝
--  发布时间：2017/3/21 8:56:00
--  
没有缩进效果，自己在文字前面加空格
--  作者：有点色
--  发布时间：2017/3/21 9:34:00
--  

编写drawcell事件

 

If e.Col.name = "第二列" Then
    e.text = "  " & e.text
End If
--  作者：有点色
--  发布时间：2017/3/21 9:50:00
--  

只能总体改，不能单个或每段缩进的。

 

Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表A").grid.styles.Add("样式1")
cs1.Margins.left = 6
Dim rng As C1.Win.C1FlexGrid.CellRange = Tables("表A").grid.GetCellRange(2, 0, 2, 0)
rng.style = cs1
Tables("表A").refresh

[此贴子已经被作者于2017/3/21 9:52:48编辑过]