【文章內(nèi)容簡(jiǎn)介】 應(yīng)用于 ” 列表中的對(duì)象。 item 必需的。任意類型的表達(dá)式，指定要添加到集合中的成員。 key 可選的。唯一字符串表達(dá)式，指定可以使用的鍵字符串，代替位置索引來(lái)訪問(wèn)集合中的成員。 before 可選的。表達(dá)式，指定集合中的相對(duì)位置。在集合中將添加的成員放置在 before 參數(shù)識(shí)別的成員之前。如果為一數(shù)值表達(dá)式，則 before 必須是介于 1 和集合 Count 屬性值之間的值。如果為一字符串表達(dá)式，則當(dāng)添加一個(gè)被引用的成員到集合時(shí)， before 必須對(duì)應(yīng)于指定的 key 值。可以指定 before 位置或 after 位置，但不能同時(shí)指定這兩個(gè)位置。 after 可選。表達(dá)式，指定集合中的相對(duì)位置。在集合中將添加的成員放置在 After 參數(shù)識(shí)別的成員之后。如果為一數(shù)值表達(dá)式，則 after 必須是介于 1 和集合 Count 屬性值之間的值；如果為一字符串表達(dá)式，則當(dāng)添加一個(gè)被引用的成員到集合時(shí)， after 必須對(duì)應(yīng)于指定的 key 值?？梢灾付? before 位置或 after 位置，但不能同時(shí)指定這兩個(gè)位置。 說(shuō)明 before 或 after 參數(shù)是字符串 表達(dá)式或數(shù)值表達(dá)式，均須引用集合中現(xiàn)有成員，否則將導(dǎo)致錯(cuò)誤發(fā)生。 如果指定的 key 和集合中現(xiàn)有成員的 key 發(fā)生重復(fù)，則也會(huì)導(dǎo)致錯(cuò)誤發(fā)生。 應(yīng)用于 Collection 對(duì)象 請(qǐng)參閱 Item 方法、 Remove 方法 Add 方法示例 本示例使用 Add 方法將 Inst 對(duì)象（類 Class1 之示例，其中包含 Public 變量 InstanceName ）加到 MyClasses 集合對(duì)象中。若要觀察程序的運(yùn)作，插入一個(gè)類模塊，并在 Class1 的模塊級(jí)中聲明公用變量 InstanceName（鍵入 Public InstanceName）來(lái)保存每個(gè)示例的名稱。類名就用缺省的 Class1。將下列代碼復(fù)制與粘貼到某個(gè)窗體模塊的 Form_Load 事件過(guò)程中。 Dim MyClasses As New Collection 39。 建立集合對(duì)象。 第 6 頁(yè) Dim Num As Integer 39。 定義計(jì)數(shù)變量。 Dim Msg Dim TheName 39。 用來(lái)保存用戶指定的名稱的變量。 Do Dim Inst As New Class1 39。 建立 Class1 的新示例。 Num = Num + 1 39。 將計(jì)數(shù)變量加一，并讓用戶輸入名稱。 Msg = Please enter a name for this object. amp。 Chr(13) _ amp。 Press Cancel to see names in collection. TheName = InputBox(Msg, Name the Collection Items) = TheName 39。 將輸入的名稱存到對(duì)象 的示例中。 39。 如果名稱不是空字符串，則將該示例加到集合對(duì)象中。 If Then 39。 將該示例加到集合對(duì)象中。 item := Inst, key := CStr(Num) End If 39。 清除對(duì)當(dāng)前示例的引用，以準(zhǔn)備下一個(gè)。 Set Inst = Nothing Loop Until TheName = For Each x In MyClasses MsgBox , , Instance Name Next Add方法 (Dictionary) 描述 添加一對(duì)相對(duì)應(yīng)的關(guān)鍵字和條目到 Dictionary 對(duì)象。 語(yǔ)法 key, item Add 方法的語(yǔ)法有如下幾部分： 部分 描述 Object 必需的。一個(gè) Dictionary 對(duì)象的名字。 Key 必需的。與所添加的條目相關(guān)聯(lián)的關(guān)鍵字。 Item 必需的。與所添加的關(guān)鍵字相關(guān)聯(lián)的條目。 說(shuō)明 如果該關(guān)鍵字已經(jīng)存在，則產(chǎn)生一個(gè)錯(cuò)誤。 應(yīng)用于 Dictionary 對(duì)象 請(qǐng)參閱 ADD 方法（ Folder）、 Exist 方法、 Items 方法、 Keys 方法、 Remove方法、 RemoveAll 方法 Add 方法 (Folders) 第 7 頁(yè) 描述 添加一個(gè)新的 Folder 到 Folders 集合。 語(yǔ)法 folderName Add 方法的語(yǔ)法有如下幾部分： 部分 描述 Object 必需的。一個(gè) Folders 集合的名稱。 FolderName 必需的。新添加的 Folder 的名稱。 說(shuō)明 如果 folderName 已經(jīng)存 在，則產(chǎn)生一個(gè)錯(cuò)誤。 應(yīng)用于 Folders 集合 請(qǐng)參閱 Add 方法 (Dictionary) Assert 方法 有條件地在該方法出現(xiàn)的行上掛起執(zhí)行。 語(yǔ)法 booleanexpression Assert 方法的語(yǔ)法有如下的對(duì)象限定符和參數(shù)： 部分 描述 object 必需的?？偸? Debug 對(duì)象。 booleanexpression 必需的。一個(gè)值為 True 或者 False 的表達(dá)式。 說(shuō)明 Assert 調(diào)用只在開(kāi)發(fā)環(huán)境中工作。當(dāng)模塊被編譯成為一個(gè)可執(zhí)行的 文件時(shí)，調(diào)用 Debug 對(duì)象的方法就會(huì)被忽略。 全部 booleanexpression 常常被計(jì)算。例如，即使一個(gè) And 表達(dá)式的第一部分被計(jì)算為 False，整個(gè)表達(dá)式還要被計(jì)算。 應(yīng)用于 Debug 對(duì)象 請(qǐng)參閱 Print 方法 Assert 方法示例 下面的示例說(shuō)明如何使用 Assert 方法。示例需要一個(gè)帶有兩個(gè)按紐控件的窗體。缺省的按紐名稱是 Command1 和 Command2 。 當(dāng)示例運(yùn)行時(shí)，單擊 Command1 按紐使得按紐上的文本在 0 和 1 之間進(jìn)行切換。單擊 Command2 按紐可能不做任何事，也可能引起一個(gè)確認(rèn)，應(yīng)該執(zhí)行哪一個(gè)操作取決于 Command1 按紐上所顯示的值。該確認(rèn)將在最后一個(gè)語(yǔ)句執(zhí)行之后使整個(gè)執(zhí)行停止，并且 行被突出顯式。 Option Explicit 第 8 頁(yè) Private blnAssert As Boolean Private intNumber As Integer Private Sub Command1_Click() blnAssert = Not blnAssert intNumber = IIf(intNumber 0, 0, 1) = intNumber End Sub Private Sub Command2_Click() blnAssert End Sub Private Sub Form_Load() = intNumber = Assert Tester End Sub BuildPath 方法 描述 追加一個(gè)名 字到一個(gè)已經(jīng)存在的路徑。 語(yǔ)法 (path, name) BuildPath 方法語(yǔ)法有如下幾部分： 部分 描述 object 必需的。始終是 FileSystemObject 的名字。 path 必需的。要對(duì)其追加名字的已存在路徑。路徑可以是絕對(duì)的也可以是相對(duì)的，不必指定一個(gè)已存在的文件夾。 name 必需的。要追加到已存在路徑上的名字。 說(shuō)明 只有在需要時(shí)， BuildPath 方法才在已存在路徑和名字之間插入一個(gè)附加的路徑分隔符。 應(yīng)用于 FileSystemObject 對(duì) 象。 Clear 方法 清除 Err 對(duì)象的所有屬性設(shè)置。 語(yǔ)法 objec 總是 Err 對(duì)象。 第 9 頁(yè) 說(shuō)明 在處理錯(cuò)誤之后使用 Clear 來(lái)清除 Err 對(duì)象，例如，在對(duì) On Error Resume Next 使用拖延錯(cuò)誤處理時(shí)就可使用 Clear。每當(dāng)執(zhí)行下列語(yǔ)句時(shí)就會(huì)自動(dòng)調(diào)用 Clear 方法： ? 任意類型的 Resume 語(yǔ)句。 ? Exit Sub, Exit Function, Exit Property ? 任何 On Error 語(yǔ)句。 注意 當(dāng)處理因 訪問(wèn)其他對(duì)象產(chǎn)生的錯(cuò)誤時(shí)，與其使用 On Error GoTo，不如使用 On Error Resume Next。每一次與對(duì)象打交道之后都檢查 Err，則可消除代碼訪問(wèn)對(duì)象時(shí)的含混之處。可以確認(rèn)是哪個(gè)對(duì)象將錯(cuò)誤引入 中，也可以確認(rèn)最初是哪個(gè)對(duì)象產(chǎn)生了這個(gè)錯(cuò)誤（ 中指定的對(duì)象）。 應(yīng)用于 Err 對(duì)象 請(qǐng)參閱 Description 屬性 、 Err 對(duì)象 、 HelpContext 屬性 、 HelpFile 屬性 、LastDLLError 屬性 、 Number 屬性 、 On Error 語(yǔ)句 、 Raise 方法 、 Source 屬性 。 Clear 方法示例 本示例使用 Err 對(duì)象的 Clear 方法將 Err 對(duì)象之?dāng)?shù)值屬性重新設(shè)置為零，并將其字符串屬性設(shè)置為零長(zhǎng)度字符串。如果在代碼中省略 Clear 方法，則每完成一次循環(huán)便會(huì)顯示一次錯(cuò)誤信息（發(fā)生錯(cuò)誤之后），不論程序中的計(jì)算結(jié)果是否真的有錯(cuò)誤。 Dim Result(10) As Integer 39。 聲明數(shù)組變量