( 续 )新难题啊!!!怎样把image中的图片缩小并保存?~ 不是只随着image控件改变而改变! 100分!!!!(续)

Question

原问题:(以解决)
急问! 怎样把image中的图片缩小并保存?~ 不是只随着image控件改变而改变!
而是改变原图片的真正尺寸大小!
最好能有完整的源、码!  现在:
我的图片是JPG的
我的本意是要把图片的容量(所站空间)变小一些,但我现在尺寸是变小了,图却又变成了BMP!
容量(所站空间)反而变大了!
我想尺寸变小后还是JPG!~
急啊!急!谢谢~~~

Answer 1

原问题的解决方案:  ( 感谢AprilSong(X) 提供)Option ExplicitPrivate Sub Form_Load()
    Me.ScaleMode = 3
    
    With Picture1
        .Visible = False
        .ScaleMode = 3
        .AutoRedraw = True
        .BorderStyle = 0
    End With
    
    SavePic 50, 50, "c:\50.bmp"
    SavePic 100, 100, "c:\100.bmp"
End SubPrivate Sub SavePic(Width As Long, Height As Long, FileName As String)
    With Picture1
        Set .Picture = Nothing
        .Width = Width
        .Height = Height
        .PaintPicture Image1.Picture, 0, 0, Width, Height, , , , , vbSrcCopy
        SavePicture .Image, FileName
    End With
End Sub

Answer 2

使用dll保存成JPGhttp://vbaccelerator.com/codelib/gfx/vbjpeg.htm