以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表中的源图片大小不同时,如何在产生报表后显示相同大小?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188519)

--  作者:户国兴
--  发布时间:2023/9/25 9:11:00
--  专业报表中的源图片大小不同时,如何在产生报表后显示相同大小?
图片点击可在新窗口打开查看
--  作者:cd_tdh
--  发布时间:2023/9/25 9:18:00
--  
我个人觉得先处理好图片,如果直接拉伸图片会变形肯定不好看。
--  作者:有点蓝
--  发布时间:2023/9/25 9:25:00
--  
强制把图片拉伸?这样图片内容会变形。

可以按指定的分辨率修改图片大小

Dim bmpDest As New Bitmap(200, 200)
Dim bmpSrc As New Bitmap("D:\\问题\\1.png")
Dim g = Graphics.FromImage(bmpDest)
Dim rectDest As New System.Drawing.Rectangle(0, 0, 200, 200)
Dim rectSrc As New System.Drawing.Rectangle(0, 0, bmpSrc.Width, bmpSrc.Height)
g.DrawImage(bmpSrc, rectDest, rectSrc, GraphicsUnit.Pixel)
g.Dispose()
bmpDest.Save("D:\\问题\\2.png", bmpSrc.RawFormat)

--  作者:户国兴
--  发布时间:2023/9/25 9:38:00
--  
收到,谢谢!