Programación General > Visual Basic 6.0 e inferiores
Problemas Con Picture
(1/1)
Sagutxo:
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:
cpmario:
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:
Stevenmn:
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 ---Option ExplicitPrivate Sub Command1_Click()Picture1.Picture = LoadPicture("c:\listo.jpg")End Sub Private Sub Command2_Click()cd.ShowSaveSavePicture Picture1.Picture, cd.InitDir & cd.FileNameEnd Sub
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:
Sagutxo:
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 ---ValTama es LongStrFotoCrea es String ValTama = AbreTabla.Fields("PD").FieldSizeStrFotoCrea = AbreTabla.Fields("PD").GetChunk(0, ValTama) Open "c:\Foto.jpg" For Binary As #1 Put #1, , StrFotoCrea Close #1
: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.
Navegación
Ir a la versión completa