以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于报表中骑缝章自动生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104936)
--  作者：benwong2013
--  发布时间：2017/8/8 17:43:00
--  关于报表中骑缝章自动生成
因工作需要，在出具的报告中需要加盖骑缝章，就是在侧面盖一个章让每一页上面都有盖的一部分，展开可以合成一个完整的印章，请问在系统可以将指定印章的图片根据报告的页数分成等份出现在每页上吗？
--  作者：有点甜
--  发布时间：2017/8/8 18:08:00
--  

 截取图片的一部分，添加到你某一页去。

 

 截取代码参考

 

Dim img = getimage("d:\\test.jpg")
Dim bmp As new bitmap(100, 100) \'宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = 10 \'开始坐标
Dim y As Integer = 20 \'开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\\test001.jpg")
bmp.dispose
--  作者：benwong2013
--  发布时间：2017/8/9 14:22:00
--  
不是很明白代码的意思，如何实现根据页数来截图不同的图片放在每页报告上呢？
--  作者：有点甜
--  发布时间：2017/8/9 14:48:00
--  

比如你有10页，那么就把图片平分成10份，一页显示一份。

 

下面代码，截取第二页图片出来

 

Dim img = getimage("d:\\test.jpg")
Dim pages As Integer = 10
Dim page As Integer = 2

Dim imgw as integer = img.width / pages

Dim bmp As new bitmap(imgw, img.height) \'宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = (page-1)*imgw \'开始坐标
Dim y As Integer = 0 \'开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\\test001.jpg")
bmp.dispose