- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 截取图片列字符串一部分打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7468)
-- 发布时间：2010/6/26 8:00:00
-- 截取图片列字符串一部分打印
当前表有一图片列，如下：
此主题相关图片如下：444.jpg
在专业报表中，想把图片列路径字符截取一部分（从“&”到“.jpg”之间的内容）并打印出来如图：
此主题相关图片如下：210423197505133835.jpg
怎样能做到？
-- 发布时间：2010/6/26 8:36:00
--
在命令窗口测试一下：
Dim s as string = "c:\\照片\\&1234566.jpg"
s = s.Substring(s.indexof("&") + 1)
s= s.Substring(0,s.indexof("."))
output.show(s)
-- 发布时间：2010/6/26 10:07:00
--
另外：
1.专业报表中，如果我只定义一个图片对象，能实现在多个地方打印这一个图片吗？
Dim tp As New prt.RenderImage \'定义一个图片对象
2.如果我已设计好专业报表代码，想在多个地方调用，而不是每次都把报表代码复制过去，有没有类似于“类”的方法，想调用就调用？
-- 发布时间：2010/6/26 10:22:00
--
1、变量可以重用：
Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = GetImage("EP1.BMP") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rm) \'将图片对象加入报表
rm = New prt.RenderImage
rm.Image = GetImage("EP2.BMP") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rm) \'将图片对象加入报表
rm = New prt.RenderImage
rm.Image = GetImage("EP3.BMP") \'设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rm) \'将图片对象加入报表
Doc.Preview() \'预览
2、定义内部函数，可以重复掉用
-- 发布时间：2010/6/26 10:40:00
--
专业报表真牛！
