Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表加入单元格的椭圆形如何居中?


  共有2613人关注过本帖树形打印复制链接

主题:[求助]专业报表加入单元格的椭圆形如何居中?

帅哥哟,离线,有人找我吗?
hanxuntx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
[求助]专业报表加入单元格的椭圆形如何居中?  发帖心情 Post By:2015/8/11 10:13:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/11 10:30:00 [只看该作者]

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

 

 你重新画一次。


 回到顶部
帅哥哟,离线,有人找我吗?
hanxuntx
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2015/8/11 10:32:00 [只看该作者]

专业报表加入单元格的椭圆形如何居中?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/11 10:50:00 [只看该作者]

不能自动居中,你控制好 padding 和 spacing 就好。

 回到顶部
帅哥哟,离线,有人找我吗?
hanxuntx
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2015/8/11 10:52:00 [只看该作者]

调整这两个属性不起作用。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/11 11:05:00 [只看该作者]

以下是引用hanxuntx在2015/8/11 10:52:00的发言:
调整这两个属性不起作用。

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12117 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/11 11:24:00 [只看该作者]

mark 对象居中

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
hanxuntx
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2015/8/11 14:07:00 [只看该作者]

谢谢,辛苦辛苦图片点击可在新窗口打开查看

 回到顶部