Ajustar PictureBox a Imagen
Publicado por Samuel (3 intervenciones) el 14/07/2007 18:40:45
Hola Todos:
Estoy haciendo un programa que achica una imagen grande sin deformarla, el codigo es el suguiente:
---------------
Sub Redimensionar(Origen As PictureBox, Destino As PictureBox)
HeightDestino = Destino.ScaleWidth * Origen.ScaleHeight \ Origen.ScaleWidth
Destino.PaintPicture Origen.Image, 0, 0, Destino.ScaleWidth, HeightDestino
Destino.AutoSize = True
End Sub
----------------
Bueno el problema es que el picturebox queda mas grande que la imagen achicada... entonces quiero que el picturebox se ajuste al tamaño de la imagen, para eso use "Destino.AutoSize = True" pero nose porque no funciona..
¿alguna idea?
Gracias
Estoy haciendo un programa que achica una imagen grande sin deformarla, el codigo es el suguiente:
---------------
Sub Redimensionar(Origen As PictureBox, Destino As PictureBox)
HeightDestino = Destino.ScaleWidth * Origen.ScaleHeight \ Origen.ScaleWidth
Destino.PaintPicture Origen.Image, 0, 0, Destino.ScaleWidth, HeightDestino
Destino.AutoSize = True
End Sub
----------------
Bueno el problema es que el picturebox queda mas grande que la imagen achicada... entonces quiero que el picturebox se ajuste al tamaño de la imagen, para eso use "Destino.AutoSize = True" pero nose porque no funciona..
¿alguna idea?
Gracias
Valora esta pregunta


0