如何缩小图片?

[立早家饰]

image1.Stretch=true
image1.height=400
image1.width=600
image1.picture=loadpicture("C:\a.bmp")

a图片是一幅1024 X 768的图片,通过上述代码可变成600 X 400.
现有image2,如何让image2得到缩小后的a图片？

前题条件是image2.Stretch=false

[射天狼]

我网站有一个类似ACDSEE软件生成缩略图的源码，用PICTUREBOX控件实现，你可以看看。

VB资料->查询“显示多个图片”；

╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

[熊孩子开学喽]

随便乱想了一段代码,楼主试试看:
Private Sub Command1_Click()
Dim W As Long
Dim H As Long
Dim TMP As String
W = 800
H = 600
TMP = App.Path & "\temp.bmp"
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Picture1.Move 0, 0, W, H
Picture1.AutoRedraw = True
Picture1.PaintPicture Image1.Picture, 0, 0, W, H
Picture1.Refresh
SavePicture Picture1.Image, TMP
Image2.Picture = LoadPicture(TMP)
End Sub

[立早家饰]

谢谢,行了