共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：专业报表中的源图片大小不同时，如何在产生报表后显示相同大小？
1楼
户国兴 发表于：2023/9/25 9:11:00
2楼
cd_tdh 发表于：2023/9/25 9:18:00我个人觉得先处理好图片，如果直接拉伸图片会变形肯定不好看。
3楼
有点蓝 发表于：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)
4楼
户国兴 发表于：2023/9/25 9:38:00收到，谢谢！
共4 条记录, 每页显示 10 条, 页签:
[1]