Programación General > Visual Basic 6.0 e inferiores

 Ajustar Picturebox A La Imagen

(1/1)

Skipped:
Hola Todos:

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


--- Código: Text ---Sub Redimensionar(Origen As PictureBox, Destino As PictureBox)HeightDestino = Destino.ScaleWidth * Origen.ScaleHeight \ Origen.ScaleWidthDestino.PaintPicture Origen.Image, 0, 0, Destino.ScaleWidth, HeightDestinoDestino.AutoSize = TrueEnd 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

cpmario:
Tengo un proyecto que muestra como adaptar el tamaño de una imagen al tamaño del PictureBox.

Te lo adjunto..
 :comp:

Nebire:
Es bastante sencillo...

En vez de alojar la imagen en el picturebox, haz lo siguiente:

coloca un control image dentro del picturebox
cambia su propiedad strecht a true

Ya está, para cambiar el tamaño de la imagen sin perder sus proporciones multiplicas el ancho y el alto del control image por el mismo factor


--- Código: Text ---Sub Redimensionar(zoom as integer, destino as control)     destino.height=destino.height * zoom     destino.width=destino.width * zoomEnd Sub 
eventualmente, puedes querer que el picturebox tenga el mismo tamaño que la imagen entonces añades este código a la subrutina anterior


--- Código: Text ---picturebox1.height=image1.heightpicturebox1.width=image1.width 

Navegación

[0] Índice de Mensajes