Hejsan.

Undrar hur man skulle göra i VB för att ta reda på BitCount för en bmp fil. Är detta möjligt? Skulle vilja göra en komponent som klarar av detta. Vore även bra ifall man kunde ta reda på bredd och höjd på bmp filen.

Är tacksam för att svar,

Philip Hatt

Har smält ihop en liten funktion för att hämta BitsPixel. Det borde vara lätt att oxå hämta höjd och bred. Men det får du lista ut själv. ;O)

<code>
Option Explicit

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
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Public Function GetBitsPixel(Picture As StdPicture) As Long
Dim PicInfo As BITMAP
If Picture.Type = vbPicTypeBitmap Then
If GetObject(Picture.Handle, Len(PicInfo), PicInfo) Then
GetBitsPixel = PicInfo.bmBitsPixel
End If
End If
End Function
</code>