这段代码为什么结果和实现不一样

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
...全文
55 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧