Vb 6. Cambiar el tamaño de una imagen

[geniusprof]

Alguien Sabe Como Puedo Hacer Que Una Imagen Me Cambie De Tamaño Ose Que
Yo Al Pasarla Por Vb Me Guarde Una Copia Pero Con Un Tamaño Diferente Pero No En Peso Sino En Altura Y Ancho

Ejem.. Tengo Una Imagen De Whitd=700 Y Height=800 Y Que Me La Guarde En Una Copia En Whitd=300 Y Height=350

Si Alguna Vez Lo An Hecho Y Me Pueden Hacer El Favor De Ayudarme Me Encantaria Contar Con Su Ayuda Gracias Y Si Nececitan Hacer Algo Que No Ayan Podido Hacer Y Depronto Yo Les Puedo Ayudar Agamenlo Saber Ok

Gracias

[email protected]
Ingeniero En Sistemas
geniusprof.ifastnet.com
geniusprof.ifastnet.com

[seba123neo]

Hola,pues no lo hice nunca pero proba usa la funcion PaintPicture para pintar la imagen con el tamaño que quieras y despues usa la propiedad SavePicture y la guardas al disco duro.

saludos.

[csdk_8346]

Dim hNew2 As Long
hNew2 = CopyImage(Image1.Picture, IMAGE_BITMAP, Val(80), Val(80), LR_COPYRETURNORG)
OpenClipboard Me.hwnd
EmptyClipboard
SetClipboardData CF_BITMAP, hNew2
CloseClipboard

Image1.Picture = Clipboard.GetData(2)
SavePicture Image1.Picture, Ruta & Txt_Nom.Text & ".jpg"