Visual Basic 使用對象編程:使用類(三)—— 向類中添加屬性

.“字段”或“屬性程”<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

      中添加屬性可以採用兩方式:“字段”或“屬性程”。

      1.字段。字段其只是中的公共量,可以從該類的外部置或量。它們對於無需驗證的屬性很有用,例如 BooleanTrue False。例如,在 Persons 中,可能有一個名 Alive Boolean 屬性,它指定一個人是死了是活着,代如下:

      Public Alive As Boolean

      2.屬性程。大多數屬性要比這複雜,因此多數情況下需要使用屬性程向中添加屬性。屬性程有三個部分:存屬性的私有量的聲明;公開該值 Get 程以及 Set 程,名思,即該值程。例如,Persons Name 屬性的屬性程如下所示。

      Private nameValue As String

      Public Property Name() As String

          Get

              Name = nameValue

          End Get

          Set(ByVal value As String)

              nameValue = value

          End Set

      End Property

      第一行代聲明一個私有 String nameValue 來存屬性的。屬性程本身以 Public Property 始,以 End Property 束。Get 程包含您要取屬性值時將被行的代。例如,如果 Persons.Name 屬性,將會調用存 nameValue 量中的Set 程包含用於 nameValue 的代,它將傳遞給該變量的用作 value 參數。例如,如果寫代 Persons.Name = "John" String John 將作 value 參數傳遞;然後 Set 程中的代將其賦值給 NameValue 量以存

      您可能會問爲舍近求而不用字段表示 Name 屬性。現實世界中的姓名有特定的規則。例如,姓名中通常不含數字。您可以在 Set 程中添加代檢查 value 參數,如其中含有數字返回錯誤

 

.和只寫屬性

      可以用屬性的 PublicReadOnly WriteOnly 符確定屬性如何工作。

ReadOnly 關鍵字用於指定只能取但不能修改的屬性。如果嘗試爲 ReadOnly 屬性賦值,代碼編輯器中將會出現錯誤。例如,表示僱員編號的屬性永不能更改,所以它可以由另一個程序取,但您不能允許該程序更改它的。要建只屬性,需使用 Get 程而不是 Set 程來建屬性程,如下所示:

      Private IDValue As Integer

      ReadOnly Property ID() As Integer

          Get

              ID = IDValue

          End Get

      End Property

      WriteOnly 關鍵字允許設置屬性但不允許讀取屬性,例如,不允其他程序取密屬性。您可以在中使用該值,但需要使其保持私有。要建只寫屬性,需使用 Set 程而不是 Get 程來建屬性,如下所示。

      Private passwordValue As String

      WriteOnly Property Password() As String

          Set(ByVal value As String)

              passwordValue = value

         End Set

      End Property

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章