Programación General > Visual Basic 6.0 e inferiores

 Problema Con Savepicture

(1/1)

jodijo5:
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 --- private sub form_load()    picture1picture=loadpicture(app.path + "\miarchivo.bmp")    'aqui viene lo que les digo    picture1.paintpicture(image1.picture,0,0)    'mi problema viene aqui cuando quiero guardar la imagen de picturebox     'junto con la que le agregué, el problema es que solo guarda la imagen     'que estaba cargada sin la que la agregue    savepicture picture1.picture,app.path + "\miarchivo2.bmp"end sub  
y bueno ese es mi problema, como podria solucionarlo amigos?
gracias de antemano por su ayuda

cpmario:
Encontré la solución del problema.


--- Código: Text ---    ScaleMode = vbPixels ' Coloca la escala a pixels.    AutoRedraw = True ' AutoRedraw On    Picture1.AutoRedraw = True    Picture1.PaintPicture Image1.Picture, 0, 0    SavePicture Picture1.Image, gstrAppPath & "picture.bmp"  
Fijate que en SavePicture cambias la propiedad de Picture1. de Picture a Image.

 :comp:

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

Navegación

[0] Índice de Mensajes