Hola!
Nesesito bajar el peso de una imagen bmp, evitando OCX, con un modulo o similar, lo que quiero es bajarle la resolución, y la calidad de color, actualmente uso un modulo que la convierte a JPG con calidad reducida, pero la resolución y calidad de color no cambian.
Alguna solucion?
Saludos
No tengo mucha idea sobre imagenes, y no se ni como funciona esto, pero si no tienes otra opcion puedes probarlo:
Option Explicit
Private Sub Command1_Click()
Picture1.Width = 644 * Screen.TwipsPerPixelX
Picture1.Height = 484 * Screen.TwipsPerPixelY
ResizePicture1
Picture1.Picture = Picture1.Image
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = vbPixels
Picture2.Visible = False
Picture1.Picture = LoadPicture("Imagen.bmp")
End Sub
Sub ResizePicture1()
Picture2.ScaleMode = vbTwips
Picture2.AutoSize = True
Picture2.Picture = Picture1.Picture
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture2.Picture, 0, 0, Picture1.ScaleWidth * Screen.TwipsPerPixelX, Picture1.ScaleHeight * Screen.TwipsPerPixelY, _
0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
End Sub
Dos pictures y un boton.
El boton pasa el picture1 a 640 x 480 (al menos en mi pc :rolleyes:)
Saludos
Gracias lo probare! ;-)
Aunque deberías usar las etiquetas GeSHi para publicar código, mejor que te lo diga yo, a que te lo diga un moderador :P
Edit: Al guardar la imagen en el disco sigue con la calidad original :-( solo le cambia la calidad al momento de visualizarla en el picturebox...
Saludos
No sera que la imagen ya esta a 640x480?
Yo en las pruebas cargaba una imagen de 217x173 y despues de procesarla la guardaba con:
SavePicture Picture1, "Resultado.bmp"
y me guardaba un bmp a 640x480.
Sobre el color y demas no se, pero la resolucion si la cambiaba.
Saludos
que forma usabas para guardarla? :huh:
Cita de: pkjSavePicture Picture1, "Resultado.bmp"
Ves... eso pasa por no poner atención o lo que leo :xD
Nop :P no funciona con imágenes grandes ni pequeñas.... las sigue guardando con su resolución original....
:o
No se me ocurre ninguna explicación.
Siento que no te sirva.