PictureToByteArray
将IPicture序列化为Byte数组。
语法：PictureToByteArray( Picture ) As Variant
- Picture
- 必需 IUnknown。要序列化的图片——stdole.StdPicture或任何实现IPicture/IPictureDisp的对象。
结果是一个Variant，包装了包含图片通过IPersistStream写入流的字节的Byte()数组。配合的反序列化器是全局LoadPicture，它接受字节数组作为输入并返回新的图片。
如果Picture为Nothing，则返回空数组。
示例
vb
Dim Bytes As Variant = PictureToByteArray(Picture1.Picture)
Set Picture2.Picture = LoadPicture(Bytes)