VB.NET中如何使用類屬性

本篇文章給大家分享的是有關(guān)VB.NET中如何使用類屬性，小編覺得挺實(shí)用的，因此分享給大家學(xué)習(xí)，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

VB.NET類屬性1、

1. Public Property Rank() As String 
   '注意這里的屬性名后面有個括號  

2. Get  

3. Return strPos  

4. End Get  

5. Set(ByVal value As String)  

6. strPos = value 

7. End Set  

8. End Property 

VB.NET類屬性2、

Public ReadOnly Property rHobby() As 
String 'Readonly要在Property前面  
Get  
Dim i As Integer  
Dim s As String  
s = Join(strHobby, ",") 
'這個函數(shù)就是用來連接數(shù)組中的字符串的  
Return s  
End Get  
End Property 

VB.NET類屬性3、

'這是定義索引器呀！  
Public ReadOnly Property indexHobby
(ByVal index As Integer) As String  
Get  
If (strHobby Is Nothing) Or (index > 
UBound(strHobby)) Then  
'注意到上面的UBound()了沒？還有LBound()!  
'它們所在的命名空間是Microsoft.VisualBasic  
Return Nothing  
End If  
Return strHobby(index)  
End Get  
End Property 

VB.NET類屬性4、

Public WriteOnly Property wHobby() 
As String  
Set(ByVal value As String)  
If value Is Nothing Then  
If Not (strHobby Is Nothing) And 
strHobby.GetLength(0) > 1 Then  
ReDim Preserve strHobby(UBound
(strHobby) - 1)  
End If  
Else  
If strHobby Is Nothing Then  
ReDim strHobby(0)  
Else  
ReDim Preserve strHobby(UBound
(strHobby) + 1)  
End If  
strHobby(UBound(strHobby)) = value  
End If  
End Set  
End Property 

5、

Default Public Property Words
(ByVal index As Integer) As 
String'注意Default  
Get '注意到參數(shù)了嗎？使用這個屬性的時候，
就跟實(shí)現(xiàn)了索引器效果一樣。
<ClassObj(index)> 
Words = theWords(index)  
End Get  
Set(ByVal value As String)  
theWords(index) = value  
End Set  
End Property 

以上就是VB.NET中如何使用類屬性，小編相信有部分知識點(diǎn)可能是我們?nèi)粘９ぷ鲿姷交蛴玫降摹ＯＭ隳芡ㄟ^這篇文章學(xué)到更多知識。更多詳情敬請關(guān)注億速云行業(yè)資訊頻道。