关于调整图片大小的问题，急用，多谢多谢！！

Question

vb如何调整图片的尺寸
比如原图像素是2000X2000，我想调整成1000X1000
 急用！！

Answer 1

Private Sub Command1_Click()
Picture1.Cls
CommonDialog1.ShowOpen
fil = CommonDialog1.FileName
Picture1.Picture = LoadPicture(fil)
End SubPrivate Sub Command2_Click()
Dim w, h, i As Single
i = Val(InputBox("请你输入缩放倍数!", "数据输入"))
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
s = i * w
k = i * h
Picture2.Picture = LoadPicture("")
Picture2.PaintPicture Picture1, 0, 0, s, k, 0, 0, w, h
End SubPrivate Sub Command3_Click()
CommonDialog2.ShowSave
SavePicture Picture2.Image, CommonDialog2.FileName
End Sub
大小自己调整

Answer 2

老张的修改版
Private Sub Command1_Click()
Picture1.Cls
CommonDialog1.ShowOpen
Dim fil As String
fil = CommonDialog1.FileName
Picture1.Picture = LoadPicture(fil)
End SubPrivate Sub Command2_Click()
Dim w, h, i As Single
i = Val(InputBox("请你输入缩放倍数!", "数据输入"))
w = Picture1.ScaleWidth  '通过设置Picture1.ScaleWidth，Picture1.ScaleHeight来确定初始框架大小，根据你的图片大小决定，否则就不是原图
h = Picture1.ScaleHeight
Dim s, k As Single
s = w / i
k = h / i
Picture2.Picture = LoadPicture("")
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1, 0, 0, s, k, 0, 0, w, h
End Sub