Ejemplos usando el Api de windows para Visual basic

7 - Obtener dimensiones y la resolución de una imagen

Para recuperar esta información debemos pasarle al Api GetObject en el primer parámetro de la función, la imagen, en este caso la cargamos en una variable de tipo IpictureDisp. En el tercer parámetro le enviamos a GetObject una estructura que retorna los datos.}

Nota : en el siguiente link : Módulo de clase cImageInfo, hay un código de ejemplo de como obtener información de un gráfico, ya sea para el alto , ancho en pixeles, la profuncidad o Depth y el tipo o formato , para los formatos gráficos : JPEG, BMP, PNG y GIF accediendo al archivo en forma binaria leyendo la cabecera

Controles

Agregar un Command1
un Dir1
un Drive1
un File1
un Picture1
3 controles Label como está en la imagen

saber las dimensiones de una imagen con el api - ancho, alto en pixeles y profundidad de colores

La estructura que nos da la información se llama BITMAP

Código fuente en un formulario:

Private Declare Function GetObject _ Lib "gdi32" _ Alias "GetObjectA" ( _ ByVal hObject As Long, _ ByVal nCount As Long, _ lpObject As Any) As Long 'Estructutra necesesaria para la informacion del Bitmap Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type 'Array de bytes y variable para la estructura Dim PicBits() As Byte, PicInfo As BITMAP 'Variable para almacenar la imagen Dim Laimagen As IPictureDisp Private Sub Command1_Click() archivo = Dir1.path & "\" & File1 'cargamos la imagen Set Laimagen = LoadPicture(archivo) 'Llamamos a GetObject pasandole la imagen, _ el tamaño de la estructura mediante Len, y _ la estructura que contendrá la informacion del BitMap GetObject Laimagen, Len(PicInfo), PicInfo Picture1 = LoadPicture(archivo) 'Mostramos las dimensiones y la resolución de la imagen Label1 = "Ancho: " & CLng(PicInfo.bmWidth) Label2 = "Alto: " & CLng(PicInfo.bmHeight) Label3 = "Bits por Pixel: " & CInt(PicInfo.bmBitsPixel) End Sub 'Control Dir Private Sub Dir1_Change() File1 = Dir1 End Sub 'Control Drive Private Sub Drive1_Change() Dir1 = Drive1 End Sub

Recursos Visual basic 6.0 - Enalaces relacionados

Alto y ancho de un GIF leyendo la cabecera

Buscar en Recursos vb