以文本方式查看主题

-  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=120522)
--  作者：wangjh8888
--  发布时间：2018/6/18 16:54:00
--  [求助]图形字典居中问题
老师 好  列属性设为图形字典   图形如何设置居中？
--  作者：有点甜
--  发布时间：2018/6/19 9:53:00
--  

执行如下代码

 

Dim t As Table = Tables("表A")
Dim rn = t.grid.GetCellRange(1, t.cols("第七列").index+1, t.rows.count+t.HeaderRows-1, t.cols("第七列").index+1)
Dim cs = t.grid.Styles.Add("emp")
cs.imagealign = 5
cs.backcolor = color.yellow
rn.style = cs