关于图片大小的问题~~~~~~~~~~~~~~~~~~~~~~~~

Question

我做了一个切割图片的小程序,可是切割出来之后,发现图片都比较大,
源图片是100K, 切割出来每张图片都有1M多.如何才能把切割出来的图片压缩.
请高手写出代码.切割图片的代码:Picture1.Picture = LoadPicture(c:\1.jpg)      
Picture2.AutoRedraw = True
Picture2.Width = Picture1.Width / 3
Picture2.Height = Picture1.Height
Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, _
Picture1.Width / 3, Picture1.Height, 0, 0, _
Picture1.Width / 3, Picture1.Height, vbSrcCopy
SavePicture Picture2.Image, PICPath & (I + 1) & "-" & 1 & ".jpg
...

Answer 1

这样保存是BMP格式的图片,当然大了.你要转成JPG的图片才会小.CSDN上都有这样的代码,你搜一下吧.

Answer 2

你以为是JPG的，其实是BMP的，不信你用画图板打开就知道了。WINDOWS的画图板只能看BMP的。
比较简单的是使用GDI+的方法来转换成JPG的。