PropertyBag对象实现数据连续操作

为了将数据保存到PropertyBag对象，可以首先创建该对象的新实例。使用WriteProperty方法保存数据。此方法包含三个参数:标识属性的字符串、属性的值和默认值。如果该属性的值与默认值相同，则不会保存该属性的值。例子如下:

Dim objPB As property bag
Dim strValueToPersist As String

strValueToPersist = " testing persist "
Set objPB = New property bag

调用objPB。WriteProperty("PersistValue "，strValueToPersist，_
VBNullstring)

若要从PropertyBag读取数据，可以使用ReadProperty方法。此方法的参数包括属性名和默认值，返回值是属性的值:

strValueToPersist = objPB。ReadProperty("PersistValue "，vbNullString)

为了保存PropertyBag对象的内容，可以将内容属性保存到二进制字节数组或变量中。

dimvntcontents as variant
vntcontents = objpb . contents
注意:保存到所需位置

为了从PropertyBag对象中检索信息，保存的值被读入一个二进制数组。然后将内容属性设置为二进制数组，这样就可以检索所有属性值。

Dim b()作为字节
Dim vntContents作为变量

备注:从保存的位置将保存的内容读入vnt内容

set objPB = New property bag
b = vnt contents
objPB。内容= b