[求助]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象

共有2649人关注过本帖树形打印复制链接主题：[求助]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106545 积分：541890 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/7 23:03:00 [显示全部帖子]

[此贴子已经被作者于2021/6/7 23:03:18编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106545 积分：541890 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/8 8:34:00 [显示全部帖子]

只能说没有认真看帮助

……

For i As Integer = 0 To 3

ra = rt.Cells(i,0).Area '引用单元格的容器

rm = New prt.RenderImage '创建一个图片

rx = New prt.RenderText '创建一个文本

ra.Stacking = prt.StackingRulesEnum.BlockTopToBottom

'设置图片对象

rm.Image = GetImage("001.ico")

rm.Style.Spacing.Right = 2 '距离右边的对象2毫米

'设置文本对象

rx.Text = "加拿大"

'rx.Height = "Prev.Height" 'rx的高度等于图片对象rm的高度

rx.Style.TextAlignVert = prt.AlignVertEnum.Center '文本垂直居中

'设置RenderArea,并将文本和图片加入到RenderArea

ra.Children.Add(rx) '加入文本到RenderArea中

ra.Children.Add(rm) '加入图片到RenderArea中

……

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106545 积分：541890 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 16:12:00 [显示全部帖子]

先绘制图片，再绘制文字，然后添加到ra里

主题：[求助]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象