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

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
...全文
12 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7522

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-21 09:59
社区公告
暂无公告