屬性程序 (Visual Basic)
Property 程序是一系列的 Visual Basic 陳述式，可對模組、類別或結構操作自訂屬性。Property 程序也稱為「屬性存取子」(Property Accessor)。
Visual Basic 提供下列 Property 程序：
Get 程序會傳回屬性的值。當您存取運算式中的屬性時，會呼叫它。
Set 程序會設定屬性的值 (包括物件參考)。當您將值指派給屬性時，會呼叫它。
通常是使用 Get 和 Set 陳述式成對地定義 Property 程序，但如果屬性是唯讀 (Get 陳述式) 或唯寫 (Set 陳述式 (Visual Basic))，則可以只定義其中一個程序。
使用自動實作屬性時，可以省略 Get 和 Set 程序。如需詳細資訊，請參閱自動實作的屬性 (Visual Basic)。
您可以在類別、結構和模組中定義屬性。屬性預設值為 Public，這表示可從應用程式中任何可存取屬性容器 (Container) 的位置呼叫它們。
如需屬性和變數的比較，請參閱 Visual Basic 中屬性和變數的差別。
宣告語法
屬性本身是由 Property 陳述式和 End Property 陳述式內封入的程式碼區塊所定義。在這個區塊中，每一個 Property 程序會顯示為封入宣告陳述式 (Declaration Statement) (Get 或 Set) 和相對應 End 宣告中的內部區塊。
宣告屬性和其程序的語法如下：
[Default] [Modifiers] Property PropertyName[(ParameterList)] [As DataType]
[AccessLevel] Get
' Statements of the Get procedure.
' The following statement returns an expression as the property's value.
Return Expression
End Get
[AccessLevel] Set[(ByVal NewValue As DataType)]
' Statements of the Set procedure.
' The following statement assigns newvalue as the property's value.
LValue = NewValue
End Set
End Property
- or -
[Default] [Modifiers] Property PropertyName [(ParameterList)] [As DataType]
Modifiers 可指定多載化 (Overloading)、覆寫、共用和遮蔽的存取層級和相關資訊，以及屬性為唯讀或唯寫。在 Get 或 Set 中的 AccessLevel 可以是要為屬性指定的存取層級更嚴格的所有層級。如需詳細資訊，請參閱Property 陳述式。
.gif "bc3dtbky.collapse_all(zh-tw,VS.110).gif")
資料型別
屬性資料型別和主要存取層級是定義在 Property 陳述式中，而不是 Property 程序中。屬性只可以有一個資料型別。例如，不可將屬性定義成儲存 Decimal 值，但卻擷取 Double 值。
存取層級
不過，您可定義屬性的主要存取層級，進一步限制在它的其中一個 Property 程序中的存取層級。例如，可定義 Public 屬性，然後定義 Private Set 程序。Get 程序仍保持為 Public。只可變更其中一個屬性程序的存取層級，且只可讓它變得比主要存取層級更多約束。如需詳細資訊，請參閱HOW TO：宣告混合存取層級的屬性 (Visual Basic)。
參數宣告
使用與宣告 Sub 程序 (Visual Basic)的相同方式來宣告每個參數，但傳遞機制必須是 ByVal。
參數清單中每一個參數的語法如下：
[Optional] ByVal [ParamArray] parametername As datatype
如果為選擇性參數，您還必須提供預設值做為其宣告的一部分。用於指定預設值的語法如下：
Optional ByVal parametername As datatype = defaultvalue
屬性值
在 Get 程序中，傳回值會做為屬性值提供給呼叫運算式。
在 Set 程序中，新的屬性值會傳遞到 Set 陳述式的參數。如果您明確地宣告參數，則必須使用與屬性相同的資料型別來進行宣告。如果您未宣告參數，編譯器會用隱含參數 Value 代表指派給該屬性的新值。
呼叫語法
藉由參考該屬性，隱含地叫用 (Invoke) 屬性程序。您使用屬性名稱的方式與您使用變數名稱的方式相同，除了您必須為所有非選擇性的引數提供值外，還必須將引數清單封入括弧中。如果未提供引數，您也可以省略括號。
Set 程序的隱含呼叫語法如下：
propertyname[(argumentlist)] = expression
Get 程序的隱含呼叫語法如下：
lvalue = propertyname[(argumentlist)]
Do While (propertyname[(argumentlist)] > expression)
宣告和呼叫的說明
下列屬性會將完整名稱儲存成兩個構成名稱：名字和姓氏。在呼叫程式碼讀取 fullName 時，Get 程序會結合這兩個構成名稱，並傳回完整名稱。在呼叫程式碼指派新的完整名稱時，Set 程序會嘗試將新名稱分割成兩個構成名稱。如果找不到空格，則會將它整個儲存成名字。
Dim firstName, lastName As String
Property fullName() As String
Get
If lastName = "" Then
Return firstName
Else
Return firstName & " " & lastName
End If
End Get
Set(ByVal Value As String)
Dim space As Integer = Value.IndexOf(" ")
If space < 0 Then
firstName = Value
lastName = ""
Else
firstName = Value.Substring(0, space)
lastName = Value.Substring(space + 1)
End If
End Set
End Property
下列範例會示範 fullName 之屬性程序的典型呼叫。
fullName = "MyFirstName MyLastName"
MsgBox(fullName)
請參閱
工作
HOW TO：在 Visual Basic 中宣告及呼叫預設屬性