PropertyBag對(duì)象實(shí)現(xiàn)數(shù)據(jù)連續(xù)操作

2019-11-18 17:38:46

字體：大中小

供稿：網(wǎng)友

為了將數(shù)據(jù)保存到PRopertyBag對(duì)象，可以先建立一個(gè)對(duì)象新的實(shí)例。使用WriteProperty方法來保存數(shù)據(jù)，這一方法包含有三個(gè)參數(shù)：識(shí)別屬性的字符串，屬性的數(shù)值，一個(gè)缺省數(shù)值。如果屬性的數(shù)值與缺省數(shù)值相同時(shí)，屬性的數(shù)值將不會(huì)被保存。其范例如下：

DimobjPBaspropertyBag
DimstrValueToPersistAsString

strValueToPersist="TestingPersist"
SetobjPB=NewPropertyBag

CallobjPB.WriteProperty("PersistValue",strValueToPersist,_
vbNullstring)

　　為了能夠?qū)崿F(xiàn)從PropertyBag讀取數(shù)據(jù)，可以使用ReadProperty方法。這一方法的參數(shù)包含有一個(gè)屬性名稱和一個(gè)缺省的數(shù)值，返回值是屬性的數(shù)值：

strValueToPersist=objPB.ReadProperty("PersistValue",vbNullString)

　　為了保存PropertyBag對(duì)象的內(nèi)容，可以將內(nèi)容屬性保存到一個(gè)二進(jìn)制字節(jié)的數(shù)組或一個(gè)變量。

DimvntContentsAsVariant
vntContents=objPB.Contents
　　注釋：Savetodesiredlocation

　　為了能夠從PropertyBag對(duì)象中重新獲取信息，將保存數(shù)值讀入一個(gè)二進(jìn)制的數(shù)組。然后將內(nèi)容屬性設(shè)置為二進(jìn)制數(shù)組，這樣所有的屬性數(shù)值將可以重新獲得。

Dimb()AsByte
DimvntContentsAsVariant

　　注釋：ReadsavedcontentsintovntContentsfromsavedlocation

SetobjPB=NewPropertyBag
b=vntContents
objPB.Contents=b->

上一篇：在VB6中將XML傳入一個(gè)TreeView控件

下一篇：用VB測(cè)定可移動(dòng)驅(qū)動(dòng)器是否準(zhǔn)備好