19/09/2007, 22:36
|
| | | Fecha de Ingreso: septiembre-2007
Mensajes: 6
Antigüedad: 17 años, 7 meses Puntos: 0 | |
| Re: Vb 6. Cambiar el tamaño de una imagen
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" |