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