Private Const Bits As Long = 32 '颜色深度,这里把所有图像都按照32位来处理
'文件信息头——BITMAPINFOHEADER
Private Type BitMapInfoHeader
biSize As Long '位图大小
biWidth As Long '宽度
biHeight As Long '长度
biPlanes As Integer '
biBitCount As Integer '信息头长度
biCompression As Long '压缩方式
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
'颜色表
Private Type RGBQuad
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
'rgbReserved As Byte
End Type
'位图信息头
Private Type BitMapInfo
bmiHeader As BitMapInfoHeader
bmiColors As RGBQuad
End Type
'文件信息头——BITMAPINFOHEADER
Private Type BitMapInfoHeader
biSize As Long '位图大小
biWidth As Long '宽度
biHeight As Long '长度
biPlanes As Integer '
biBitCount As Integer '信息头长度
biCompression As Long '压缩方式
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
'颜色表
Private Type RGBQuad
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
'rgbReserved As Byte
End Type
'位图信息头
Private Type BitMapInfo
bmiHeader As BitMapInfoHeader
bmiColors As RGBQuad
End Type