这段代码为什么结果和实现不一样
yeszq 2004-02-21 09:59:55 Private Type BITMAPFILEHEADER
bfType(0 To 1) As Byte
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Sub Command1_Click()
Dim bi As BITMAPFILEHEADER
Open "c:\a.bmp" For Random As #1 Len = Len(bi)
Get #1, , bi
Debug.Print bi.bfType
Debug.Print bi.bfSize
Debug.Print bi.bfOffBits
Close