Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表如何设置容器或单元格的背景图片?


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

主题:[求助]专业报表如何设置容器或单元格的背景图片?

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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
[求助]专业报表如何设置容器或单元格的背景图片?  发帖心情 Post By:2015/9/1 14:47:00 [只看该作者]

如题


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


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

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

 

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

 


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


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

如何做到?

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

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

 


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


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


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢 逛逛

 回到顶部