SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Viernes 6 de Abril de 2007, 19:18

Título: Problemas Con Picture
Publicado por: Sagutxo en Viernes 6 de Abril de 2007, 19:18
Salu2. Pos eso

Cargo una imagen en un picture con un loadpicture y al hacer el savepicture picture1.picture,destino

La imagen destino ha cambiado de tamaño y resolución

osea la imagen cargada es 12cmx12cm y 200PPP y el grabado se queda en 33cmx33cm y 72ppp.

Es posible obligar a grabar como 12x12 y 72ppp?

Gracias.
 :comp:  :smartass:  :comp:
Título: Re: Problemas Con Picture
Publicado por: cpmario en Sábado 7 de Abril de 2007, 06:56
Estuve haciendo pruebas y encontré que cambiando la propiedad 'AutoSize' (de un picturebox) un archivo bmp cambia de tamaño cuando es falsa y no la cambia cuando es verdadera. Ese puede ser el problema que tienes de la diferencia de tamaño de archivos. Lo de cambiar los PPP, eso no lo sé.

 :comp:
Título: Re: Problemas Con Picture
Publicado por: Stevenmn en Martes 10 de Abril de 2007, 22:22
Pues yo probé poniedolé al picture1 autosize = true y false y  siempre me lo guardo con la misma resolcuión y tamaño.


tenga en cuenta que sea la misma extensión.

Esto fue lo que yo hice.
Hay que agregarle el common dialog --nombre = cd

Código: Text
  1. Option Explicit
  2. Private Sub Command1_Click()
  3. Picture1.Picture = LoadPicture("c:\listo.jpg")
  4. End Sub
  5.  
  6. Private Sub Command2_Click()
  7. cd.ShowSave
  8. SavePicture Picture1.Picture, cd.InitDir & cd.FileName
  9. End Sub
  10.  


También es mejor hacer una especie de visor de imagenes, yo estoy hacie
ndo un tuto, pero no hay tiempito,  cuando termine lo posteo.l

 :ph34r:  :ph34r:  :ph34r:

Cualquier duda con gusto hago lo posible por ayudarle.

 :kicking:  :kicking:  :kicking:
Título: Re: Problemas Con Picture
Publicado por: Sagutxo en Viernes 13 de Abril de 2007, 22:25
Salu2. Gracias, pero por mas que lo he intentado si grabo desde el picture se van las medidas a hacer puñetas, pero he comprobado que si guardo lo recogido en la db si me la guarda bien.

Código: Text
  1. ValTama es Long
  2. StrFotoCrea es String
  3.  
  4. ValTama = AbreTabla.Fields("PD").FieldSize
  5. StrFotoCrea = AbreTabla.Fields("PD").GetChunk(0, ValTama)
  6.  
  7.       Open "c:\Foto.jpg" For Binary As #1
  8.       Put #1, , StrFotoCrea
  9.       Close #1
  10.  

 :comp:  :smartass:  :comp:

Muchas gracias.

P.D. Estaría bien poder guardarla con el tamaño y los PPP a mi gusto así que si alguien sabe si es posible.