请教各位高手一个二进制的问题

Question

请问如何将剪贴板里的东西以二进制形式保存到数组当中，还有这样的数组怎样定义？
本人是个菜鸟，劳驾各位解答的详细一点儿，最好有源代码。
不胜感谢

Answer 1

Clipboard只支持取得字符串和图形数据。要放到二进制的数组里去，可以用文件来交互，也可以用PropertyBag来处理，如：Private m_arrData()     As Byte'转换成字节数组
Private Sub Command1_Click()
        
    Dim o           As StdPicture
    Dim p           As PropertyBag
    
    Set p = New PropertyBag    
    '从剪贴板取出图形数据
    Set o = Clipboard.GetData
    p.WriteProperty "Picture", o
    '取出字节数组
    m_arrData = p.Contents
    Set p = Nothing
End Sub'从字节数组还原
Private Sub Command2_Click()
    Dim o       As StdPicture
    Dim p       As PropertyBag
    
    Set p = New PropertyBag
    p.Contents = m_arrData()
    Set o = p.ReadProperty("Picture")
    Set p = Nothing
    
End Sub
以上是处理图片的方式，对于字符串可以直接转换成字节数组，如 m_arrData()=Clipboard.GetText.

Answer 2

多谢指教，还有一点不明白，请问PropertyBag 是什么？
是不是需要引用
还往不吝赐教
谢谢！

Answer 3

不需要，Propertybag是VB的内置对象，主要是用来持久化用户控件属性。可以用来做简单对象的持久化。