Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Ninfrock en 15 Mayo 2015, 12:51 PM

Título: Reducir resolución de imagen
Publicado por: Ninfrock en 15 Mayo 2015, 12:51 PM
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
Título: Re: Reducir resolución de imagen
Publicado por: pkj en 18 Mayo 2015, 18:39 PM
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]

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
Título: Re: Reducir resolución de imagen
Publicado por: Ninfrock en 19 Mayo 2015, 07:57 AM
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
Título: Re: Reducir resolución de imagen
Publicado por: pkj en 19 Mayo 2015, 09:04 AM
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
Título: Re: Reducir resolución de imagen
Publicado por: Ninfrock en 19 Mayo 2015, 09:48 AM
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....
Título: Re: Reducir resolución de imagen
Publicado por: pkj en 19 Mayo 2015, 10:46 AM
 :o
No se me ocurre ninguna explicación.
Siento que no te sirva.