將方法新 (VBA)

將 成員 加入至 Collection 物件。

語法

物件。新增專案、 索引鍵、 之前、 之後

Add 方法語法具有下列物件辨識符號和具名自變數：

部分	描述
物件	此為必要動作。 評估為 [套用至] 列表中對象的物件表達式。
專案	此為必要動作。 任何型別的 表達 式，指定要加入至 集合的成員。
key	選用。 唯一 字串表示 式，指定可用來存取集合成員的索引鍵字串，而不是位置索引。
以前	選用。 表達式，指定集合中的相對位置。 要加入的成員會放在集合中 before 自變數所識別的成員之前。 如果是 數值表達式， 則 before 必須是從 1 到集合 Count 屬性值之間的數位。 如果是字串表示式， 則 before 必須對應至參考的成員加入集合時所指定的索引 鍵 。 您可以指定 前置 或 後置 位置，但不能同時指定兩者。
後	選用。 表達式，指定集合中的相對位置。 要加入的成員會放在集合中 after 自變數所識別的成員 後面 。 如果是數值， 則 after 必須是從 1 到集合 Count 屬性值之間的數位。 如果是字串， 則 after 必須對應至將參考的成員加入至集合時所指定的 索引鍵 。 您可以指定 前置 或 後置 位置，但不能同時指定兩者。

註解

不論 之前 或 之後 自變數是字串表達式或數值表達式，都必須參考集合的現有成員，否則會發生錯誤。

如果指定的 索引鍵 複製集合現有成員的 索引鍵 ，也會發生錯誤。

範例

這個範例會使用 Add 方法，Inst將物件新增至名為 的集合 (名為 Class1 的類別實例，該類別包含 Public 變數InstanceName) 。MyClasses 若要查看其運作方式，請插入類模組，並在 (類型的Public InstanceName模組層級宣告名為 InstanceName 的Class1公用變數) 以保存每個實例的名稱。 將預設名稱保留為 Class1。 將下列程式代碼複製並貼到 Form_Load 表單模組的事件過程中。

Dim MyClasses As New Collection    ' Create a Collection object.
Dim Num As Integer    ' Counter for individualizing keys.
Dim Msg
Dim TheName    ' Holder for names user enters.
Do
    Dim Inst As New Class1    ' Create a new instance of Class1.
    Num = Num + 1    ' Increment Num, then get a name.
    Msg = "Please enter a name for this object." & Chr(13) _
     & "Press Cancel to see names in collection."
    TheName = InputBox(Msg, "Name the Collection Items")
    Inst.InstanceName = TheName    ' Put name in object instance.
    ' If user entered name, add it to the collection.
    If Inst.InstanceName <> "" Then
        ' Add the named object to the collection.
        MyClasses. Add item := Inst, key := CStr(Num)
    End If
    ' Clear the current reference in preparation for next one.
    Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
    MsgBox x.instancename, , "Instance Name"
Next

另請參閱

• 物件 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。