VB image控件图片放大后保存！

2024-12-12 01:20:07

推荐回答（3个）

回答1：

一、要实现上述效果，必须先把图片按放大或缩小后的大小绘到一个Picturebox控件上（保留原有mage1，再增加1个Picturebox控件），然后保存即可。
With Picture1
.Width = Image1.Width
.Height = Image1.Height
.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height
SavePicture Picture1.Image, "c:\test.bmp"
End With
二、至于保存图片大小的问题，你可以把它保存为JPG等格式，具体代码到Baidu搜索，很容易得到的。

回答2：

准备一个PictureBox，然后用BitBlt想多大就多大。
最后，SavePicture

回答3：

1楼正解，不过别忘了把picture1的AutoRedraw属性设为true，否则得不到图片。
另外，如果想得到更好的图像效果、处理速度更快，还是用gdiplus更好