Question

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

用image控件，并修改image控件的大小，使图片放大或缩小，怎样才能保存或输出放大缩小后的图片？
谢谢1楼的答案
本来把image换成picturebox更方便，可是在不换控件的情况下，怎样拖动image控件，image没有hwnd属性
还有个问题，这样直接用savepicturebox保存的图片太大了，1500*1100的图片有5兆多~

Answer 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搜索，很容易得到的。

Answer 2

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

Answer 3

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