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

[ashuiashui]

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

[SYSSZ]

Private Sub Command1_Click()
Picture1.Cls
CommonDialog1.ShowOpen
fil = CommonDialog1.FileName
Picture1.Picture = LoadPicture(fil)
End Sub

Private 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 Sub

Private Sub Command3_Click()
CommonDialog2.ShowSave
SavePicture Picture2.Image, CommonDialog2.FileName
End Sub

大小自己调整

[ashuiashui]

[Quote=引用 1 楼 SYSSZ 的回复:]
VB codePrivate Sub Command1_Click()
Picture1.Cls
CommonDialog1.ShowOpen
fil = CommonDialog1.FileName
Picture1.Picture = LoadPicture(fil)
End Sub

Private 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,…
[/Quote]

多谢

我用你的代码试了一下，保存出来的图片是全灰色的，和原图不一样

还有，如何得到原图的尺寸？

[SYSSZ]

我用你的代码试了一下，保存出来的图片是全灰色的，和原图不一样
怎么在我这里是好的,到你那里就是全是灰色的了?原因找出来后我再告诉如何得原图的大小 .

[zzyong00]

picture2.autoredraw=true

[wap21]

不懂，帮顶

[msword2007]

不懂，帮顶

[wap21]

不懂，up

[wap21]

up

[hbwhwc]

up

[xrongzhen]

老张的修改版

Private Sub Command1_Click()
Picture1.Cls
CommonDialog1.ShowOpen
Dim fil As String
fil = CommonDialog1.FileName
Picture1.Picture = LoadPicture(fil)
End Sub

Private 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

[qap22]

ding