急问! 怎样把image中的图片缩小并保存?~ 不是只随着image控件改变而改变!

Question

急问! 怎样把image中的图片缩小并保存?~ 不是只随着image控件改变而改变!而是改变原图片的真正尺寸大小!
最好能有完整的源、码!
感谢!!
感谢!!
感谢!!
感谢!!
感谢!!

Answer 1

Image1.Stretch = True  '让图片缩放成Image1的大小
Image1.Stretch = False '让Image1变成图片缩的大小，保持原图无缩放PictureBox1.PaintPicture Image1,x,y,w,h  '可用W、H 让图片变成任意你想要的大小
SavePicture PictureBox1.Image,"c:\1.bmp" '保存上面大小的图片

Answer 2

^_^http://community.csdn.net/Expert/topic/3657/3657247.xml

Answer 3

Image1.Stretch = True  '让图片缩放成Image1的大小
Image1.Stretch = False '让Image1变成图片缩的大小，保持原图无缩放PictureBox1.PaintPicture Image1,x,y,w,h  '可用W、H 让图片变成任意你想要的大小
SavePicture PictureBox1.Image,"c:\1.bmp" '保存上面大小的图片

Answer 4

没收到我给你的E-MAIL吗?~  还不会啊?!~

Answer 5

http://community.csdn.net/Expert/topic/3657/3657247.xml?temp=.1217615

Answer 6

这个例子是按image1的大小保存。你想要多少自己修改下面代码第三句中的image1.width和image1.height吧！
先准备一个ImageBox，调整尺寸，直到你满意。 
    再准备一个PictureBox。 
    然后加上一个按钮，输入以下代码。 
    Private Sub Command1_Click() 
     Picture1.AutoRedraw = True 
     Picture1.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height 
     Picture1.Picture = Picture1.Image 
     Picture1.AutoRedraw = False 
     SavePicture Picture1.Picture, "c:\test.bmp" 
    End Sub 

Answer 7

呵呵！楼主自己给自己发Email回答问题，这次应该给lxw1980abc(ad)满分呀？马甲别换错了。

Answer 8

呵呵~~homezj(小吉)弄错拉~~
我们是几个朋友用一个号~~
真的~~这次是adao2003(]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[]-[) 回答的~当然给他拉~~呵呵~我也给过你100分啊~~谢谢你拉~~