如何将Image控件中的图片数据转为二进制数组?(已解决!封装PropertyBag对象)

学着用

不知有谁知道同一张图片PropertyBag读出来的数组比OPEN读出来的数组多50个字节是什么意思??

上扬

真是高手如云

maxlt

留个记号。

goldowl2011

Mark it.Thanks a lot.

cumulonimbus

HHAAMM 发表于 2009-2-25 04:06
Sub 图片文件的数据保存到EXCEL的A列中()
Dim arr() As Byte, H&, x&
Open "d:\1.jpg" For Binary As #1
...

我把图片文件的数据保存到EXCEL的A列中（数据共有1254个），然后从EXCEL的A列提取数据生成图片。奇怪的是，我如果不想生成整个图片，从A列提取数据少于1254个，生成的图片却显示绘图失败。请教版主这是怎么回事？有何解决之道？
我只想提取部分的图片。
Sub 图片文件的数据保存到EXCEL的A列中()
Dim arr() As Byte, H&, x&
Open ThisWorkbook.Path & "\DV_getcode.bmp" For Binary As #1
H = LOF(1)
ReDim arr(1 To H)
Get #1, , arr
Close #1
For x = 1 To H
    Range("a" & x) = arr(x)
Next
End Sub

Sub 从EXCEL的A列提取数据生成图片()
Dim arr() As Byte, a&, x&
a = 174
ReDim arr(1 To a)
For x = 1 To a
    arr(x) = Range("a" & x)
Next
Open ThisWorkbook.Path & "\复件.bmp" For Binary As #1
Put #1, , arr
Close #1
MsgBox "文件已在D盘！！"
End Sub

fzkoko

有创意，都是高手。

okok7845

HHAAMM 发表于 2009-2-25 03:48
Sub test()
Dim arr() As Byte, H&
Open "d:\1.jpg" For Binary As #1

代码很简单，又精彩。
请问有没有办法，将附件，这些字节编入一个字典里，方便调用。
截图00.zip (2.74 KB, 下载次数: 103)

2013-1-20 22:55 上传

点击文件名下载附件

莫悠悠

小fisher 发表于 2009-2-25 13:38
示例代码见附件

提示找不到驱动哦，找不到工程

gengasterisk

谢谢额。厉害啊

VBA万岁

小fisher 发表于 2009-2-25 13:38
示例代码见附件

正学习这个，多谢分享！