以文本方式查看主题

-  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=73019)

--  作者:hanxuntx
--  发布时间:2015/8/11 10:13:00
--  [求助]专业报表加入单元格的椭圆形如何居中?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150811100727.jpg
图片点击可在新窗口打开查看
如图?
 
请问表的单元格已经用DrawCell事件绘图了,如何在专业报表中直接获取单元格的绘图?
 
单元格加入RenderGraphics对象就可以了
[此贴子已经被作者于2015/8/11 10:23:43编辑过]

--  作者:大红袍
--  发布时间:2015/8/11 10:30:00
--  

 直接获取单元格的绘图?这个是做不到的。

 

 你重新画一次。


--  作者:hanxuntx
--  发布时间:2015/8/11 10:32:00
--  
专业报表加入单元格的椭圆形如何居中?
--  作者:大红袍
--  发布时间:2015/8/11 10:50:00
--  
不能自动居中,你控制好 padding 和 spacing 就好。
--  作者:hanxuntx
--  发布时间:2015/8/11 10:52:00
--  
调整这两个属性不起作用。
--  作者:大红袍
--  发布时间:2015/8/11 11:05:00
--  
以下是引用hanxuntx在2015/8/11 10:52:00的发言:
调整这两个属性不起作用。

 

把椭圆/绘图,放入一个容器ra中,控制此容器的width、padding 或 spacing 即可


--  作者:逛逛
--  发布时间:2015/8/11 11:12:00
--  

汗都玩出来了

 

试试(教程改的,图片自己引用)

 

 

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim ra As prt.RenderArea
Dim rm As prt.RenderImage

rt.Style.GridLines.All = New prt.LineDef
rt.Cols.Count = 3 \'总列数为3
For i As Integer = 0 To 3
    ra = rt.Cells(i,0).Area \'引用单元格的容器
    ra.Style.FlowAlignChildren = C1.C1Preview.FlowAlignEnum.Center
    rm = New prt.RenderImage \'创建一个图片
    \'设置图片对象
    rm.Image = GetImage("Can.ico")
    \'设置RenderArea,并将文本和图片加入到RenderArea
    ra.Children.Add(rm) \'加入图片到RenderArea中
Next
doc.Body.Children.Add(rt)
Doc.Preview()


--  作者:大红袍
--  发布时间:2015/8/11 11:24:00
--  

mark 对象居中

 

ra.Style.FlowAlignChildren  = C1.C1Preview.FlowAlignEnum.Center


--  作者:hanxuntx
--  发布时间:2015/8/11 14:07:00
--  
谢谢,辛苦辛苦图片点击可在新窗口打开查看