Reducir resolución de imagen

[Ninfrock]

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

[pkj]

No tengo mucha idea sobre imagenes, y no se ni como funciona esto, pero si no tienes otra opcion puedes probarlo:

Código (vb) [Seleccionar] Expandir


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  )

Saludos

[Ninfrock]

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  



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

[pkj]

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

[Ninfrock]

que forma usabas para guardarla?  

SavePicture Picture1, "Resultado.bmp"

Ves... eso pasa por no poner atención o lo que leo  



Nop  no funciona con imágenes grandes ni pequeñas.... las sigue guardando con su resolución original....

[pkj]

 
No se me ocurre ninguna explicación.
Siento que no te sirva.