VB 中怎么改变图片文件的大小

Question

求解：VB 中怎么改变图片文件的大小，不仅仅是达到显示时图片大小改变，还想要把文件属性（占用空间）的大小改变。目的是为了保存到数据库时提高交互速度。

Answer 1

如果是 jpg,参考：
http://community.csdn.net/Expert/topic/5672/5672928.xml?temp=.48193
如果是其它图片，要改变大小只能缩放它的象素，比较麻烦。

Answer 2

同意 cqq_chen(我是谁) ，将图片存放在指定的共享路径下可以大大提高性能。

Answer 3

那我是多个客户端访问的，一个客户端上传后，其他客户端也能看到了，不能只保存路径啊，现在偶想了个办法，在保存前调用WINRAR把图片进行压缩，打开时进行解压缩。不过这样的话客户一定要装个WINRAR了。

Answer 4

添加两个图片框,PIC1,PIC2PIC1里载入图片,设置AutoSize=True然后调整好PIC2的大小,为你需要的大小....接着.......Private Sub Command1_Click()
    With Pic2
        .PaintPicture Pic1.Picture, 0, 0, .Width, .Height
        Set .Picture = .Image
    End With
    SavePicture Pic2.Picture, "D:\123.bmp"
End Sub只要调整好PIC2的大小,就行了.....