Sección de códigos , trucos y ejemplos para visual basic

62 - Redimensionar imágenes en un PictureBox al estilo Vista previa de imagen

Este ejemplo lo hice con alguna ayudita de algunos amigos del foro del canal visual basic

Nota: Seguramente hay una forma mas óptima de hacer una vista previa de una imagen al estilo Thumbnail , y además se puede optimizar un poco el código , pero funciona :).

Lo que hace el código fuente, es cargar una imagen en una variable de tipo IpictureDisp , luego calcular el ancho y alto de la imagen con respecto a el tamaño del picturebox, para de esta manera poder escalarla y también centrarla. Por último, una ves con los valores , se dibuja en el PictureBox con la función PaintPicture

ElPicturebox.PaintPicture LaImagen, Posx, Posy, Ancho, Alto

Pasos para el ejemplo

Colocar los controles en un formulario como muestra la imagen:

Un control FileListBox
Un DirListBox
Un DriveListBox
Un PictureBox

Código fuente en el form

Option Explicit Dim Ancho As Single Dim Alto As Single Dim Porcentaje As Single 'Variable de tipo IpictureDisp para a almacenar la imagen Dim imagen As IPictureDisp '*********************************************************************** '* Este procedimiento carga la imagen en la variable imagen '* y calcula las dimensiones y el porcentaje del ancho y alto de la imagen '* que despues mediante el procedimiento CentrarPicture se dibuja _ * con el metodo PaintPicture '*********************************************************************** Private Sub Establecer_Imagen(Obj As Object, RutaImg As String) With Obj 'Borramos el contenido del picture .Cls 'Para que al repintar no sepierda el gráfico .AutoRedraw = True End With 'Cargamos la imagen seleccionada del FileListBox Set imagen = LoadPicture(RutaImg) 'Almacenamos el ancho y alto de la imagen Ancho = imagen.Width Alto = imagen.Height 'Sacamos el porcentaje para reescalar la imàgen If Ancho > Obj.Width Or Alto > Obj.Height Then If Ancho > Alto Then Porcentaje = (Obj.Width * 100) / Ancho Else Porcentaje = (Obj.Height * 100) / Alto End If Call CentrarPicture(Obj) Exit Sub End If If Ancho <= Obj.Width Or Alto <= Obj.Height Then If Ancho > Alto Then Porcentaje = (Obj.Width * 100) / Ancho Else Porcentaje = (Obj.Width * 100) / Alto End If End If Call CentrarPicture(Obj) End Sub Public Sub CentrarPicture(Obj As Object) Dim centro1 As Single Dim centro2 As Single 'Sacamos el porcentaje del ancho y el alto Ancho = ((Ancho * Porcentaje) / 100) / 0.99 Alto = ((Alto * Porcentaje) / 100) / 0.99 'La posicion X e y de la imagen dentro del Picture centro1 = (Obj.Width - Ancho) / 2 centro2 = (Obj.Height - Alto) / 2 'Lo dibujamos Obj.PaintPicture imagen, centro1, centro2, Ancho, Alto 'eliminamos la variable imagen Set imagen = Nothing End Sub '//Controles Dir, File y Drive Private Sub Dir1_Change() File1 = Dir1 End Sub Private Sub Drive1_Change() Dir1 = Drive1 End Sub Private Sub File1_Click() On Error Resume Next Call Establecer_Imagen(Picture1, Dir1 & "\" & File1.FileName) End Sub Private Sub Form_Load() 'Filtro para las extensiones de archivos gráficos a visualizar File1.Pattern = "*.bmp;*.jpg;*.gif;*.jpeg" End Sub

Nota : A la función se le puede pasar como parámetro además de un picturebox, un formulario, ya que está declarada como de tipo Object , es decir :

Call Establecer_Imagen(Me, Dir1 & "\" & File1.FileName)

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.NET - Relacionados

Thumbnail de imágenes en picturebox con el método GetThumbnailImage

Buscar en Recursos vb