以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果将表只保存为1个jpg文件，不要page1和page2这样的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63697)
--  作者：fpx406
--  发布时间：2015/1/26 17:47:00
--  如果将表只保存为1个jpg文件，不要page1和page2这样的
管理员好：
请问在用报表中如何使用saveimage方法，可以将超过一个页面的图保存为长图，而不是分为多页显示。
谢谢！
--  作者：有点甜
--  发布时间：2015/1/26 18:12:00
--  

 必须用代码处理

 

Dim imgs As new List(Of image)
Dim w As Integer = 0
Dim h As Integer = 0
For i As Integer = 1 To 3
    imgs.Add(getimage("d:\\page" & i & ".jpg"))
    h += imgs(i-1).Height
    w = imgs(i-1).width
Next
Dim bmp As New bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim offset As Integer = 0
For Each img As image In imgs
    g.DrawImage(img, 0, offset, img.width, img.height)
    offset += img.height
Next
bmp.Save("D:\\pagesss.jpg", Imaging.ImageFormat.Jpeg)

g.Dispose()

 

 
--  作者：fpx406
--  发布时间：2015/1/26 20:12:00
--  
非常感谢