集合類：VBA集合對(duì)象的安全包裝

2019-11-18 17:55:24

字體：大中小

供稿：網(wǎng)友

你遲早都要管理一組由VBA類模塊創(chuàng)建的自定義對(duì)象，VBACollection對(duì)象是實(shí)現(xiàn)這一目的的理想工具。我們?cè)谠撾s志的
當(dāng)然，如果你能保證每個(gè)對(duì)象都具有相同得類型，并且具有相同得屬性何方法的話，那么在Collection中處理對(duì)象就變得異常簡(jiǎn)單。例如，作為本月范例 ExcelVBA項(xiàng)目的組成部分，我們創(chuàng)建一個(gè)自定義的File類來(lái)代表一個(gè)磁盤文件。這個(gè)File類有幾個(gè)屬性，其中包括Path,Size,和ShortName。如果你創(chuàng)建了一個(gè)File對(duì)象的Collection，那么你將希望這個(gè)Collection中的每個(gè)對(duì)象都具有這些屬性。你可以毫無(wú)異議地使用與下面類似的代碼：

'PrintthesizeofthefirstfileintheCollection.
Debug.PrintcolFiles.Item(1).Size

但是，如果colFilesCollection中的第一個(gè)對(duì)象不是File，將會(huì)出現(xiàn)什么情況呢？如果它是一個(gè)Form或Control對(duì)象，又會(huì)怎樣呢？如果它根本就不是一個(gè)對(duì)象呢？當(dāng)然，當(dāng)它試圖執(zhí)行該代碼的時(shí)候，VBA將生成運(yùn)行時(shí)間錯(cuò)誤。

圖1（左）VBACollection對(duì)象可以容納任何類型的對(duì)象

圖2（右）創(chuàng)建一個(gè)Collection類來(lái)防止不想要的對(duì)象進(jìn)入集合

輸入Collection類

Collection類可以充當(dāng)Collection對(duì)象的過(guò)濾器，限制你可以在里面存儲(chǔ)的對(duì)象類型（如圖2所示）。通過(guò)與你的應(yīng)用程序中的Collection類（二不是Collection對(duì)象本身）的互相作用，你可以防止不想要的對(duì)象的進(jìn)入。創(chuàng)建和使用Collection類允許你擴(kuò)展Collection對(duì)象的屬性和方法（后面我們將舉例說(shuō)明）。

為了說(shuō)明Collection類以及如何創(chuàng)建一個(gè)Collection類，我們將使用帶有通過(guò)掃描磁盤目錄創(chuàng)建的文件集合的Excel97項(xiàng)目。圖3顯示了一個(gè)表單，它用你選擇了路徑之后存儲(chǔ)在自定義Collection類中的文件信息使得列表框通俗化。

這個(gè)表單使用一個(gè)叫做Files的Collection類來(lái)通俗化列表框。在創(chuàng)建Collection的時(shí)候，以向你的VBA項(xiàng)目添加一個(gè)新的類模塊作為開始，然后在這個(gè)新模塊的聲明段聲明一個(gè)PrivateCollection對(duì)象。下面是來(lái)自Files類模塊的聲明：

'Collectionoffiles.
PrivatepcolFilesAsNewCollection

為了將Collection對(duì)象與外界"隔絕"，并阻止程序的其他部分用無(wú)用的東西填充它，必須將Collection對(duì)象聲明為Private。

復(fù)制所需要的方法

當(dāng)然，一旦你已經(jīng)將Collection對(duì)象聲明為Private，那么對(duì)于任何過(guò)程都沒(méi)有辦法向其中添加項(xiàng)目或從中刪除項(xiàng)目了。因而，下一步就是復(fù)制Collection對(duì)象的標(biāo)準(zhǔn)方法了。盡管聽(tīng)起來(lái)象是做了大量額外的工作，實(shí)際上仍然在做我們前面所提及的"過(guò)濾"工作。

請(qǐng)記住，內(nèi)建的Collection對(duì)象具有Add方法，該方法接受對(duì)象引用和獨(dú)特的、包括文字與數(shù)字的標(biāo)識(shí)符。如果你的應(yīng)用程序正在直接使用Collection對(duì)象，那么它將極有可能創(chuàng)建對(duì)象的一個(gè)新的實(shí)例，并將其添加到Collection本身。

'Createanewinstanceofanobject.
DimobjFileAsNewFile
objFile.Path="C:AUTOEXEC.BAT"

'AddtoaCollectionobject.
colFiles.AddobjFile,objFile.ShortName

應(yīng)用Collection類，應(yīng)用程序調(diào)用該類的Add方法，傳遞任何必需的信息。請(qǐng)將先前的代碼與Files類的Add方法做一比較：

WithaCollectionclass,theapplicationcallstheAddmethodoftheclass,passinganyrequiredinformation.ContrastthepreviouscodewiththeAddmethodoftheFilesclass:

PublicFunctionAdd(PathAsString)AsFile

DimobjFileAsFile

'CreatethenewFileobject.
SetobjFile=NewFile
objFile.Path=Path

'AddittothePrivatecollection.
pcolFiles.AddobjFile,objFile.ShortName

'Returnapointertothenewobject.
SetAdd=objFile

EndFunction

在本例中，到Collection的對(duì)象創(chuàng)建和添加發(fā)生在Add方法內(nèi)部；而類則保留了完整的控制。任何必需的信息（例如文件的路徑）是作為參數(shù)向方法提供的。由應(yīng)用程序調(diào)用將文件添加到Collection的代碼然后可以簡(jiǎn)化為：

'Addafiletothecollection.
colFiles.Add"C:AUTOEXEC.BAT"
InadditiontotheAddmethod,theCollectionclassshouldalsoimplementtheItemandRemovemethods,aswellasaCountproperty:

PublicFunctionItem(KeyAsVariant)AsFile
'Returnaniteminthecollection.
SetItem=pcolFiles.Item(Key)
EndFunction

PublicSubRemove(KeyAsVariant)
'Removeanitemfromthecollection.
pcolFiles.RemoveKey
EndSub

PropertyGetCount()AsLong
'Returnthenumberofitems.
Count=pcolFiles.Count
EndProperty

請(qǐng)注意，在這三種方法中，我們省略了錯(cuò)誤處理--有些事情你是從來(lái)都不應(yīng)該做的！至少應(yīng)該包括一個(gè)錯(cuò)誤處理器，通過(guò)使用Err對(duì)象的Raise方法來(lái)將錯(cuò)誤傳遞、給調(diào)用過(guò)程。

圖3這個(gè)表單通過(guò)顯示文件信息來(lái)說(shuō)明Collection類

'Privatevariabletostorepath.
PrivatepstrPathAsString

PropertyGetPath()AsString
'Returnstoredpathvalue.
Path=pstrPath
EndProperty

PropertyLetPath(strPathAsString)

DimstrFileAsString

'Clearthecollection.
SetpcolFiles=NewCollection

'Makesurethere'sabackslash.
IfRight(strPath,1)<>""Then
strPath=strPath&""
EndIf

'Getthefirstfile.
strFile=Dir(strPath&"*.*",_
vbReadOnlyOrvbHiddenOrvbArchiveOrvbSystem)
DoUntilLen(strFile)=0
'Addittothecollection.
CallAdd(strPath&strFile)
'Getthenextfile.
strFile=Dir()
Loop

'Savethepath.
pstrPath=strPath

EndProperty

圖4向Collection類添加Path屬性。將該屬性和類設(shè)置為掃描目錄并將所找到的每個(gè)文件添加到私有Collection對(duì)象。

擴(kuò)展Collection類

現(xiàn)在，你可以通過(guò)聲明Files類的一個(gè)實(shí)例來(lái)使用它了，并為曾經(jīng)由Dir函數(shù)找到的每個(gè)文件反復(fù)調(diào)用該類的Add方法。但這不是我們的例子要完成的工作。為什么不是呢？使用Collection類的一個(gè)優(yōu)點(diǎn)是你可以通過(guò)添加更多的屬性和方法來(lái)擴(kuò)展它的功能；不僅僅限于Add,Remove,Item,和Count。

在我們的Files類的情形中，它難道不對(duì)在類本身，而不是使用該類的每個(gè)應(yīng)用程序里面，放置掃描目錄的代碼做更多的檢測(cè)嗎？這是面向?qū)ο笤O(shè)計(jì)的一個(gè)指導(dǎo)原則：將代碼放在最靠近需要它的地方。

為了闡述這個(gè)概念，我們向Collection類添加了一個(gè)Path屬性。當(dāng)你設(shè)置這個(gè)屬性的時(shí)候，這個(gè)類將對(duì)目錄進(jìn)行掃描，并向Collection對(duì)象添加它所找到的每個(gè)文件（見(jiàn)圖4）。

當(dāng)一個(gè)過(guò)程改變?cè)擃惖腜ath屬性的時(shí)候，將觸發(fā)PropertyLet過(guò)程。在我們的例子中，它發(fā)生在你從瀏覽器對(duì)話框選擇了一個(gè)路徑之后。這里是完成用文件列表填充Collection任務(wù)的簡(jiǎn)單代碼。

'Reinitializethecollection.
SetmobjFiles=NewFiles

'Setthepathproperty.
mobjFiles.Path=strPath

一旦設(shè)置了Path屬性，F(xiàn)iles類就將通俗化它自己的Collection，并且使它可以提供給應(yīng)用程序。這已經(jīng)是另一個(gè)例子了，在這個(gè)例子里面，過(guò)程的"guts"存在于類自己內(nèi)部（你可以證明類已不再需要它的Add和Remove方法了。在有些應(yīng)用程序中，可能確實(shí)是這樣，但為了達(dá)到說(shuō)明的目的，我們已經(jīng)選擇了留下它們作為該類的一部分）。

一些不利之處

使用VBACollection類的生活并不總是美酒和玫瑰。當(dāng)你使用Collection類代替Collection對(duì)象時(shí)，必須放棄兩樣?xùn)|西。第一樣是Collection對(duì)象的默認(rèn)方法，Item。默認(rèn)的方法允許你從你的代碼中省略單詞"Item"。例如，如下兩條語(yǔ)句是一樣的，都是假定colFiles引用一個(gè)Collection對(duì)象。

Debug.PrintcolFiles.Item(1).Size
Debug.PrintcolFiles(1).Size

除非你正在使用的是VisualBasic5.0，否則沒(méi)有辦法為一個(gè)類指定默認(rèn)的方法。因而，你必須總是顯式調(diào)用Item方法。

Collection類的第二個(gè)主要的不足之處是不能創(chuàng)建列舉函數(shù)。列舉類就是可以使ForEach循環(huán)工作的類。如果你想重復(fù)Collection中的每一個(gè)項(xiàng)目，那么就必須用老式的方法來(lái)完成，也就是使用Count屬性和ForNext循環(huán)。例如，下面的代碼可以通俗化列表框：

'Fillthelistboxwithinfo.
lstFiles.Clear
ForlngCount=1TomobjFiles.Count
WithmobjFiles.Item(lngCount)
lstFiles.AddItem.ShortName&_
Space(12-Len(.ShortName))&_
vbTab&.AttributeString&_
vbTab&.Size
EndWith
Next

請(qǐng)注意該過(guò)程是如何使用