DirextX编程

开发平台：

Visual Basic

位图结构模块.bas：源码内容

							Attribute VB_Name = "位图结构模块"
Option Explicit
' Download by http://www.codefans.net
Public Type BITMAPFILEHEADER
        bfType As Integer
        bfSize As Long
        bfReserved1 As Integer
        bfReserved2 As Integer
        bfOffBits As Long
End Type
Public 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
Public Type RGBQUAD
        rgbBlue As Byte
        rgbGreen As Byte
        rgbRed As Byte
        rgbReserved As Byte
End Type
Public BiRGB() As RGBQUAD
Public BH As BITMAPFILEHEADER
Public BI As BITMAPINFOHEADER
Public Sub GetBI()
    Open App.Path & "BmpBi.bi" For Binary As #1
        Get #1, , BH
        Get #1, , BI
    Close #1
End Sub
Public Sub GetBiRGB()
    Open App.Path & "bmpbi.birgb" For Binary As #1
        ReDim BiRGB(256)
        Get #1, , BiRGB()
    Close #1
End Sub

						