在Form中添加一个Picture控件和一个CommandButton控件,在Picture控件中加入一个位图文件,将下面代码加入其中: Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" _ (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) _ As Long Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, _ ByVal dwCount As Long, lpBits As Any) As Long
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 Sub Command1_Click() Dim hBitmap As Long Dim res As Long Dim bmp As BITMAP Dim byteAry() As Byte Dim totbyte As Long, i As Long hBitmap = Picture1.Picture.Handle
res = GetObject(hBitmap, Len(bmp), bmp) ''''取得BITMAP的结构