7522
社区成员
这段代码为什么结果和实现不一样
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
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
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
