以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]专业报表如何设置容器或单元格的背景图片?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74070)

--  作者:hanxuntx
--  发布时间:2015/9/1 14:47:00
--  [求助]专业报表如何设置容器或单元格的背景图片?

如题


--  作者:大红袍
--  发布时间:2015/9/1 14:55:00
--  

呃,直接插入一个图片控件,设置x、y浮动

 

http://www.foxtable.com/help/topics/1182.htm

 


--  作者:hanxuntx
--  发布时间:2015/9/7 8:25:00
--  

如何做到?

在容器中插入一张图片做为背景图片

然后在背景图片上面还要放置表格。

 


--  作者:逛逛
--  发布时间:2015/9/7 9:11:00
--  

Dim doc As New PrintDoc   \'定义一个报表
Dim ra As New prt.RenderArea   \'定义一个容器
Dim rt As New prt.RenderTable  \'定义一个表格

With rt     \'表格设置(瞎设)
    .Cols.Count = 3
    .Rows.Count = 3
    .Width = 150
    .Height = 150
End With

For i As Integer = 0 To 2
     rt.Cells(i,0).Text = "点点滴滴"
Next

With ra
    .Style.BackgroundImage = GetImage("C:\\Documents and Settings\\Administrator\\桌面\\bg05.jpg")  \'图片自己改
    .Style.BackgroundImageAlign.KeepAspectRatio  = False   \'是否保持图片的纵横比例
    .Children.Add(rt)  \'添加表格
End With
doc.Body.Children.Add(ra)  \'添加容器
Doc.Preview()


--  作者:大红袍
--  发布时间:2015/9/7 9:16:00
--  

呃,直接放一个图片,然后再放一个table就行啊

 

Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage("d:\\test.jpg") \'设置图片
rm.y = 20
rm.Style.ImageAlign.StretchHorz = False \'禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示
doc.Body.Children.Add(rm) \'将图片对象加入报表

Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) \'将表格的颜色设为深灰色
rt.Rows.Count = 3 \'设置行数
rt.Cols.Count = 3 \'设置列数
rt.Width = 60 \'设置表格的宽度
rt.Height = 60 \'设置表格的高度

Doc.Preview() \'预览


--  作者:hanxuntx
--  发布时间:2015/9/7 15:55:00
--  
谢谢 逛逛