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

48 - Obtener dimensiones de una imagen: Alto y ancho

Contenido

Obtener ancho y alto de una imagen ( Propiedad Width y height del objeto stdPicture )
Módulo de clase para obtener ancho y alto de un Bmp, Png, Gif y Jpg
Enlaces relacionados

Obtener ancho y alto de una imagen ( Propiedad Width y height del objeto stdPicture )

Este ejemplo muestra como obtener las dimensiones de un mapa de bits, es decir el ancho y alto en pixeles

Formulario

Primero cargamos la imagen en una variable de tipo IpictureDisp o de tipo Picture mediante la función LoadPicture, sería lo mismo que cargarlo en un control Picture o Image, pero en una variable, por ejemplo :

    'Creamos una variable de tipo IpictureDisp
    Dim imagen As IPictureDisp

    
    'cargamos la imagen con LoadPicture
    Set imagen = LoadPicture(Path)

Una vez cargada la imagen en la variable, se puede consultar las propiedades Height y Width, osea el alto y el ancho. Pero los valores devueltos están en otra medida que no son pixeles, si no en una escala llamada Himetric.

Para hacer la conversión , usamos en este caso el método ScaleX y ScaleY, por ej:

Alto = ScaleY(imagen.Height, vbHimetric, vbPixels))

Nota : solo se puede utilizar con formatos gráficos soportados por visual basic , es decir por ejemplo los Png o Tiff daría error al cargarlos con LoadPicture

Controles

Colocar un dirlistbox
un FileListBox
un control Drive

Código fuente en el formulario

Option Explicit Private Sub MostrarAnchoAlto(Path As String) 'Creamos una variable de tipo IpictureDisp Dim imagen As IPictureDisp Dim Ancho As Integer Dim Alto As Integer 'cargamos la imagen con LoadPicture Set imagen = LoadPicture(Path) ' convierte los valores de la escala Himetric a Pixels Alto = Round(Me.ScaleY(imagen.Height, vbHimetric, vbPixels)) Ancho = Round(Me.ScaleX(imagen.Width, vbHimetric, vbPixels)) 'Mostramos el ancho y alto MsgBox Alto & " Pixeles ", vbInformation, " Alto de la imagen " MsgBox Ancho & " Pixeles ", vbInformation, " Ancho de la imagen " 'Eliminamos la variable que tiene la imagen Set imagen = Nothing End Sub Private Sub Dir1_Change() File1 = Dir1 End Sub Private Sub Drive1_Change() Dir1 = Drive1 End Sub Private Sub File1_Click() ' le pasa la ruta del gráfico para obtener el ancho y el alto en pixeles Call MostrarAnchoAlto(File1.Path & "\" & File1.FileName) End Sub Private Sub Form_Load() File1.Pattern = "*.jpg;*.bmp;*.gif" On Local Error Resume Next File1.Path = "c:\windows" End Sub

Módulo de clase cImageInfo

El siguiente módulo de clase creado por David Crowell, permite averiguar información de archivos de imágenes Jpeg, Bmp, Png y Gif.

El módulo tiene un método llamado ReadImageInfo a la cual se le debe enviar como parámetro el path completo del archivo de imagen. Luego para obtener la información se debe consultar las siguientes propiedades

Height : Retorna el alto en pixeles de la imagen
Width : Retorna el ancho de la imagen en pixeles
Depth : Devuelve la profuncidad de colores del gráfico
Type : Devuelve el tipo de gráfico : Gif es el valor 1, Jpeg es el valor 2, Png para es el valor 3, y 4 para el BMP

El siguiente enlace contiene un simple ejemplo para usar el módulo de clase, y la información de los gráficos se visualizan en unos labels

Descargar

vista previa del proyecto

Recursos vb 6.0 - Enlaces relacionados

Obtener la resolución y profundidad de colores de una imagen

Buscar en Recursos vb