'假设Form 上已经存在Picture1的控件，并已经设置好图片

Dim PBag As New PropertyBag
Dim B() As Byte

PBag.WriteProperty "Picture", Picture1.Picture
'读取Picture1.Picture 图片并写到 Pbag 容器中

B = PBag.Contents '获取容器Byte 到 B() 数组中
'这时 B 就时我们想要获得的Byte数组
'读取 Byte() 数组内容到 Picture

PBag.Contents = B '指定 PBag容器的内容

'读取容器中的图片
Set Picture1.Picture = PBag.ReadProperty("Picture")


简单的几句代码就可以完成从图片到Byte() ，从Byte()到图片的转换。而且其保存和读取的格式都是使用了原始格式，即：如果你的图片框读入的是Jpg图片格式，则保存的Byte()数组也是该Jpg格式的数组，而非普通位图的数组，所以你也不用担心转换后的数组很没有压缩，很大。
其实：PropertyBag对象并不止于读取保存图片，它就象一个大麻袋，可以藏任何东西，并放到你想放的地方，具体藏什么 ，是由你决定的。你可以将任何对象保存为Byte(),并在需要的时候读出来
如将 ADO 的 RecordSet 对象保存起来，并在需要的时候读取等等……
Logo
向您推荐>>Eolink开发者社区

权威｜前沿｜技术｜干货｜国内首个API全生命周期开发者社区

更多推荐

深入理解 Mocha 测试框架：从零实现一个 Mocha

前言什么是自动化测试自动化测试在很多团队中都是Devops环节中很难执行起来的一个环节，主要原因在于测试代码的编写工作很难抽象，99%的场景都需要和业务强绑定，而且写测试代码的编写工作量往往比编写实际业务代码的工作量更多。在一些很多业务场景中投入产出比很低，适合写自动化测试的应该是那些中长期业务以及一些诸如组件一样的基础库。自动化测试是个比较大的概念，其中分类也比较多，比如单元测试，端对端测试，集

avatar 云原生

ELK实现containerd的容器日志采集展示【基于logging的全栈监测】

企业级ELK Stack构建介绍

avatar 云原生

(20200916 Solved)docker-compose up创建容器自动退出

问题描述如题，创建容器后自动退出了。并且docker start container无效解决方案原因是缺失了控制终端的配置，需要在docker-compose.yml中增加tty:true ，有时候这样也不行，需要再增加一个command:/bin/bash，命令不一定是这个，需要是一个不会退出的命令，然后用-d后台启动容器。Referencesdocker-compose启动容器后自动退出...

avatar 云原生