- 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=169226)
-- 发布时间：2021/6/7 22:57:00
-- [求助]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象
[讨论]专业报表，如何在一个表格单元格式里面同时设置图片对象和文本对象
在专业报表的一个单元格里面如果我同时设置图片对象和文本对象，只会显示最后设置那个，不能同时设置
本意是一个单元格背景是一个图片，内容是一个文本？
Dim rm1 As New prt.RenderImage \'定义一个图片对象
rm1.Image = GetImage("srk.png") \'设置图片
rt.cells(rt.Rows.Count,2).RenderObject = rm1
rt.Cells(rt.Rows.Count-1,2).SpanCols = 3
Dim rdt2 As New prt.RenderText
rdt2.Text = "详细信息显示" \'设置文本对象的内容
rdt2.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rdt2.Style.TextAlignVert = prt.AlignHorzEnum.Center \'水平居中
rdt2.Style.Font = New Font("楷体", 16, FontStyle.Bold) \'设置字体
rt.cells(rt.Rows.Count-1,2).RenderObject = rdt2
-- 发布时间：2021/6/7 23:03:00
--
[此贴子已经被作者于2021/6/7 23:03:18编辑过]
-- 发布时间：2021/6/7 23:14:00
--
这样也不能设置成图片在下层，文字在上层的效果
-- 发布时间：2021/6/7 23:17:00
--
此主题相关图片如下：图片和文字.png
这种效果
-- 发布时间：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中
Next
……
-- 发布时间：2021/6/15 16:08:00
--
你没理解我要的效果
此主题相关图片如下：图片.png
如图：下面黄色的是一张图片，图片上门层叠的是文字，文字在图片上，所谓是上不是上下位置的上，是层叠的上层
-- 发布时间：2021/6/15 16:12:00
--
参考：http://www.foxtable.com/webhelp/topics/1232.htm
先绘制图片，再绘制文字，然后添加到ra里