Question

VB 压缩图片的尺寸 求救！！！！~~~~~~

比如说我现在有一张E:\123.bmp图片。这张图片原始尺寸是1024*768我现在想把它压缩成800*600，并把原来的那张图片覆盖掉。能否用PaintPicture函数来实现。具体如何实现？
tianqing20wen 能不能不通过添加图片控件？就直接打开再保存。不经过图片控件。

Answer 1

Private Sub Command1_Click()
Picture1.picture=loadpicture("e:\123.bmp")
Picture1.AutoRedraw = True
Picture1.BorderStyle = 0
Picture1.Move 0, 0, 800, 600
Picture1.PaintPicture Picture1.Picture, 0, 0, 800, 600, , , , , vbSrcCopy
SavePicture Picture1.Image, "e:\123.bmp"
End Sub