GetBitmapInfo – Retrieve width, height and colors in a bitmap

GetBitmapInfo – Retrieve width, height and colors in a bitmap

Type BITMAP    bmType As Long    bmWidth As Long    bmHeight As Long    bmWidthBytes As Long    bmPlanes As Integer    bmBitsPixel As Integer    bmBits As LongEnd TypePrivate Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal _    hObject As Long, ByVal nCount As Long, lpObject As Any) As Long' Returns info on a bitmap loaded into a picture'' Pass the Picture property in the first argument' Find the results in the remaining argumentsSub GetBitmapInfo(ByVal handle As Long, width As Integer, height As Integer, _    Optional colorPlanes As Integer, Optional bitsperpixel As Integer)    Dim bmp As BITMAP    ' call the API    GetObjectAPI handle, Len(bmp), bmp    ' return values throgh argumens    width = bmp.bmWidth    height = bmp.bmHeight    colorPlanes = bmp.bmPlanes    bitsperpixel = bmp.bmBitsPixelEnd Sub

See also  Does It Make Sense to Splurge on a Laptop?

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist