• Lunes 23 de Diciembre de 2024, 09:35

Autor Tema:  Problema Con Savepicture  (Leído 1141 veces)

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Problema Con Savepicture
« en: Martes 1 de Noviembre de 2005, 21:00 »
0
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
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Problema Con Savepicture
« Respuesta #1 en: Martes 1 de Noviembre de 2005, 22:23 »
0
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:

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Problema Con Savepicture
« Respuesta #2 en: Miércoles 2 de Noviembre de 2005, 21:45 »
0
copachay, muchas :gracias:  :D  :lol:  B)  :beer:  :jumpie:
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com