图象压缩

[haxiu]

高手指点：
如何用程序将一个大图片压缩成一个小图片！

[wingchi]

给我信箱 我给你发点代码 因为有个dll文件 所以不能贴出来

[haxiu]

[e-mail]
多谢了,能给点说明吗?

[lxcc]

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Dim w As Integer, h As Integer

Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height

StretchBlt Me.hdc, 0, 0, w / 2, h / 2, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub