bmp图片转换为gif .Option Explicit



Private Type RGBTRIPLE

rgbRed As Byte

rgbGreen As Byte

rgbBlue As Byte

End Type



Private Type RGBQUAD

rgbBlue As Byte

rgbGreen As Byte

rgbRed As Byte

rgbReserved As Byte

End Type



Private Type BITMAPINFOHEADER 40 bytes

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-bmp image is converted to gif. Option ExplicitPrivate Type RGBTRIPLE rgbRed As Byte rgbGreen As Byte rgbBlue As ByteEnd TypePrivate Type RGBQUAD rgbBlue As Byte rgbGreen As Byte rgbRed As Byte rgbReserved As ByteEnd TypePrivate Type BITMAPINFOHEADER 40 bytes 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 LongEnd Type