Private Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
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
Dim bf As BITMAPFILEHEADER
Dim bl As BITMAPINFOHEADER
Dim xpos, ypos As Long
Dim piccol(1024, 1024, 2) As Byte
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = " " Then
MsgBox "请先打开图象文件，再读数据！", vbCritical, "错误"
Exit Sub
End If
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Dim colornum, i, j, kk, l As Integer
Dim pix As Byte
Dim col As Byte
Open CommonDialog1.FileName For Binary As #1
Get #1, , bf
Get #1, , bl
Print bf.bfType
Print bf.bfReserved1
Print bl.biWidth
Print bl.biHeight
- 1
- 2
- 3
- 4
- 5
- 6
前往页