SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jodijo5 en Martes 1 de Noviembre de 2005, 21:00

Título: Problema Con Savepicture
Publicado por: jodijo5 en Martes 1 de Noviembre de 2005, 21:00

hola copachays, tengo un problema, miren tengo una imagen ya cargada en tiempo de diseño y utilizo luego el metodo paintpicture paraponer una imagen mas dentro de este picturebox algoasi:

Código: Text

1.  
2. private sub form_load()
3.     picture1picture=loadpicture(app.path + "\miarchivo.bmp")
4.     'aqui viene lo que les digo
5.     picture1.paintpicture(image1.picture,0,0)
6.     'mi problema viene aqui cuando quiero guardar la imagen de picturebox
7.     'junto con la que le agregué, el problema es que solo guarda la imagen
8.     'que estaba cargada sin la que la agregue
9.     savepicture picture1.picture,app.path + "\miarchivo2.bmp"
10. end sub
11.  
12.  

y bueno ese es mi problema, como podria solucionarlo amigos?
gracias de antemano por su ayuda

Título: Re: Problema Con Savepicture
Publicado por: cpmario en Martes 1 de Noviembre de 2005, 22:23

Encontré la solución del problema.

Código: Text

1.     ScaleMode = vbPixels ' Coloca la escala a pixels.
2.     AutoRedraw = True ' AutoRedraw On
3.     Picture1.AutoRedraw = True
4.     Picture1.PaintPicture Image1.Picture, 0, 0
5.     SavePicture Picture1.Image, gstrAppPath & "picture.bmp"
6.  
7.  

Fijate que en SavePicture cambias la propiedad de Picture1. de Picture a Image.

 :comp:

Título: Re: Problema Con Savepicture
Publicado por: jodijo5 en Miércoles 2 de Noviembre de 2005, 21:45

copachay, muchas :gracias:  :D  :lol:  B)  :beer:  :jumpie: