建立物件變數

發行項
04/07/2023

您可以將物件變數視為與它所參考的物件完全相同。您可以設定或傳回物件的屬性，或使用其任何方法。

建立物件變數

宣告物件變數。
將物件變數指派給物件。

宣告物件變數

使用 Dim 語句或其中一個其他宣告語句 (Public、 Private或 Static) 來宣告物件變數。參考物件的變數必須是 Variant、 Object或特定類型的物件。例如，下列宣告有效：

' Declare MyObject as Variant data type. 
Dim MyObject 
' Declare MyObject as Object data type. 
Dim MyObject As Object 
' Declare MyObject as Font type. 
Dim MyObject As Font

注意事項

如果您未先宣告物件變數，則物件變數的資料類型預設為 Variant 。

當特定物件類型在程式執行之前未知時，您可以使用 Object 資料類型宣告物件變數。使用 Object 資料類型來建立任何物件的泛型參考。

如果您知道特定的物件類型，您應該將物件變數宣告為該物件類型。例如，如果應用程式包含 Sample 物件類型，您可以使用下列其中一個語句來宣告該物件的物件變數：

Dim MyObject As Object ' Declared as generic object. 
Dim MyObject As Sample ' Declared only as Sample object.

宣告特定物件類型可提供自動類型檢查、更快速的程式碼，以及改善的可讀性。

將物件變數指派給物件

使用 Set 語句將物件指派給物件變數。您可以指派物件運算式或 Nothing。例如，下列物件變數指派是有效的。

Set MyObject = YourObject ' Assign object reference. 
Set MyObject = Nothing ' Discontinue association.

您可以使用 New關鍵字搭配 Set 語句，將宣告物件變數與將物件指派給它結合。例如：

Set MyObject = New Object ' Create and Assign

將物件變數設定為 Nothing 會停止物件 變數與任何特定物件的關聯。這可防止您藉由變更變數不小心變更物件。關閉相關聯的物件之後，物件變數一律會設定為 Nothing ，因此您可以測試物件變數是否指向有效的物件。例如：

If Not MyObject Is Nothing Then 
 ' Variable refers to valid object. 
 . . . 
End If

當然，這項測試絕對無法判斷使用者是否已關閉包含物件變數所參考之物件的應用程式。

參考物件的目前實例

使用 Me 關鍵字來參照執行程式碼之物件的目前實例。與目前物件相關聯的所有程式都可以存取稱為 Me的物件。使用我對於將物件目前實例的相關資訊傳遞至另一個模組中的程式特別有用。例如，假設您在模組中有下列程式：

Sub ChangeObjectColor(MyObjectName As Object) 
 MyObjectName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 
End Sub

您可以使用下列語句來呼叫程式，並將物件的目前實例當做引數傳遞：

ChangeObjectColor Me

另請參閱

Visual Basic 概念主題

支援和意見反應

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

共用方式為

建立物件變數