Property Set 陳述式

  • 發行項

宣告構成 Property程式主體的名稱、自變數和程式代碼，以設定對象的參考。

語法

[ 公用 | 私人 | Friend ][ Static ] 屬性集名稱 ( [ arglist ]， 參考 )
[ statements ]
[ Exit 屬性 ]
[ statements ]
End 屬性

Property Set 語句語法具有下列部分：

部分 描述
Optional 選用。 表示呼叫端可能提供自變數，也可能不提供自變數。
Public 選用。 表示 屬性集 程式可供所有模組中的所有其他程式存 取。 如果用於包含 Option Private 語句的模組中，則無法在專案外部使用 此程式。
Private 選用。 指出 屬性集 程式只能供宣告它之模組中的其他程式存取。
Friend 選用。 僅用於 類模組。 表示 屬性集 程式在整個 專案中是可見的，但對象實例的控制器看不到。
Static 選用。 表示 屬性集 程式的局部 變數 會在呼叫之間保留。 Static 屬性不會影響在屬性集程式之外宣告的變數，即使這些變數用於程式中也一般。
name 此為必要動作。 屬性集程序的名稱;遵循標準變數命名慣例，不同之處在於名稱可以與相同模組中的 Property Get 或 Property Let 程式相同。
arglist 此為必要動作。 變數清單，代表呼叫屬性集程式時傳遞給屬性 集 程式的自變數。 多個自變數會以逗號分隔。
reference 此為必要動作。 變數，包含對象參考指派右側所使用的物件參考。
陳述式 選用。 要在 Property 程式主體內執行的任何語句群組。

arglist 引數具有下列語法和部分︰

[ 選擇性 ][ ByVal | ByRef ][ ParamArray ] varname [ ( ) ] [ Astype ] [ =defaultvalue ]

部分 描述
Optional 選用。 表示引數不是必要的。 如果使用， arglist 中的所有後續自變數也必須是選擇性自變數，並使用 Optional 關鍵詞來宣告。 請注意，屬性 集表達 式的右邊不可能是 選擇性的。
ByVal 選用。 表示引數以傳值方式傳遞。
ByRef 選用。 表示引數以傳參考方式傳遞。 ByRef 是 VBA 中的預設值，與 Visual Basic .NET 不同。
ParamArray 選用。 僅作為arglist中的最後一個自變數，以指出最終自變數是 Variant 元素的選擇性陣列。 ParamArray 關鍵字可讓您提供引數的任意數。 它不能與 ByVal、 ByRef 或 Optional 搭配使用。
varname 此為必要動作。 代表自變數的變數名稱;遵循標準變數命名慣例。
type 選用。 傳遞至程式之自變數的數據類型;可能是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal (目前不支援) 、Date、String (變數長度僅) 、Object、Variant 或特定物件類型。 如果參數不是 選擇性，也可以指定 使用者定義型 別。
defaultvalue 選用。 任何 常數 或常數表達式。 僅適用於 選擇性 參數。 如果類型是 Object，則明確預設值只能是 Nothing。

注意事項

每個 Property Set 語 句都必須為它所定義的程式定義至少一個自變數。 當叫用 Property Set 語句所定義的程式時，如果有多個) 包含屬性的實際對象參考，則該自變數 (或最後一個自變數。 在上述語法中，它稱為 參考 。 它不能是 選擇性的。

註解

如果未使用 Public、 Private 或 Friend 明確指定，則預設會公開 屬性 程式。 如果未使用 Static ，則不會在呼叫之間保留局部變數的值。

Friend 關鍵詞只能用於類模組。 不過， Friend 程式可由專案任何模組中的程式存取。 Friend 程式不會出現在其父類別的類型庫中，也不會晚期綁定 Friend 程式。

所有可執行程式代碼都必須在程式中。 您無法在另一個 Property、Sub或 Function 程式內定義屬性集程式。

Exit Property 語句會立即結束屬性集程式。 在呼叫 屬性集 程式的語句之後，程式會繼續執行 語句。 任何數目的 Exit Property 語 句都可以出現在 屬性集 程式中的任何位置。

如同 函式 和 屬性取得 程式， 屬性集 程式是個別的程式，可以接受自變數、執行一系列的語句，以及變更其自變數的值。 不過，不同於函式和屬性取得程式，這兩個程式都會傳回值，您只能在對象參考指派或 Set 語句的左側使用 Property Set 程式。

範例

這個範例會使用 Property Set 語句來定義屬性程式，以設定對象的參考。

' The Pen property may be set to different Pen implementations. 
Property Set Pen(P As Object) 
 Set CurrentPen = P ' Assign Pen to object. 
End Property

另請參閱

支援和意見反應

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