举例介绍VB.NET类属性详细内容

也许还有很多人对于VB.NET这样一款编程语言还不太了解。它是一款功能成强大的语言，直接面向对象，并且可以创造一个结构性比较牢固的编程化境。我们今天要为大家介绍的是VB.NET类属性相关概念。其中有以下几种需要举例的。#t#

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, ",") 
'这个函数就是用来连接数组中的字符串的  
  
  
  
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 '注意到参数了吗？使用这个属性的时候，
就跟实现了索引器效果一样。
<ClassObj(index)> 
  
  
  
Words = theWords(index)  
  
  
  
End Get  
  
  
  
Set(ByVal value As String)  
  
  
  
theWords(index) = value  
  
  
  
End Set  
  
  
  
End Property