如何在VB6中克隆对象

使用PropertyBag序列化数据

您可以通过将数据放入PropertyBag对象,然后读取PropertyBags Contents属性来快速序列化数据.此属性实际上是一个Byte数组,它是PropertyBag对象中数据的序列表示形式.您可以将此字节数组用于多种用途,包括通过DCOM进行数据传输的有效方法：

Private Function PackData() As String
    Dim pbTemp  As PropertyBag

    'Create a new PropertyBag object
    Set pbTemp = New PropertyBag
    With pbTemp
        'Add your data to the PB giving each item a 
        'unique string key
        Call .WriteProperty("FirstName","John")
        Call .WriteProperty("MiddleInitial","J")
        Call .WriteProperty("LastName","Doe")

        'Place the serialized data into a string 
        'variable.
        Let PackData = .Contents
    End With

    Set pbTemp = Nothing
End Function

要检索序列化数据,只需创建一个新的PropertyBag对象并将序列化字符串设置为其Contents属性.将字符串转换为字节数组,然后将其分配给Contents属性：

Private Sub UnPackData(sData As String)
    Dim pbTemp  As PropertyBag
    Dim arData()    As Byte

    'Convert the string representation of the data to 
    'a Byte array
    Let arData() = sData

    'Create a new PropertyBag object
    Set pbTemp = New PropertyBag
    With pbTemp
        'Load the PropertyBag with data
        Let .Contents = arData()

        'Retrieve your data using the unique key
        Let m_sFirstName = .ReadProperty("FirstName")
        Let m_sMiddleInitial = _
            .ReadProperty("MiddleInitial")
        Let m_sLastName = .ReadProperty("LastName")
    End With

    Set pbTemp = Nothing
      End Sub

Mike Kurtz,McKees Rocks,Pa.