Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/07/2007, 10:25
Skipped
 
Fecha de Ingreso: junio-2007
Mensajes: 5
Antigüedad: 17 años, 10 meses
Puntos: 0
Ajustar PictureBox a la imagen

Hola Todos:

Estoy haciendo un programa que achica una imagen grande sin deformarla, el codigo es el suguiente:

Código:
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,
Skipped