PropertyBag對象實現數據連續(xù)操作

為了將數據保存到PropertyBag對象，可以先建立一個對象新的實例。使用WriteProperty方法來保存數據，這一方法包含有三個參數：識別屬性的字符串，屬性的數值，一個缺省數值。如果屬性的數值與缺省數值相同時，屬性的數值將不會被保存。其范例如下：
    Dim objPB As PropertyBag
    Dim strValueToPersist As String
    strValueToPersist = "TestingPersist"
    Set objPB = New PropertyBag
    Call objPB.WriteProperty("PersistValue", strValueToPersist, _
    VBNullstring)
    為了能夠實現從PropertyBag讀取數據，可以使用ReadProperty方法。這一方法的參數包含有一個屬性名稱和一個缺省的數值，返回值是屬性的數值：
    strValueToPersist = objPB.ReadProperty("PersistValue", vbNullString)
    為了保存PropertyBag對象的內容，可以將內容屬性保存到一個二進制字節(jié)的數組或一個變量。
    Dim vntContents As Variant
    vntContents = objPB.Contents
    注釋：Save to desired location
    為了能夠從PropertyBag對象中重新獲取信息，將保存數值讀入一個二進制的數組。然后將內容屬性設置為二進制數組，這樣所有的屬性數值將可以重新獲得。
    Dim b() As Byte
    Dim vntContents As Variant
    注釋：Read saved contents into vntContents from saved location
    Set objPB = New PropertyBag
    b = vntContents
    objPB.Contents = b