VB.NET之类属性

有三种需要举例的

1.  
   Public Property Rank() As String '注意这里的属性名后面有个括号
           Get
               Return strPos
           End Get
           Set(ByVal value As String)
               strPos = value
           End Set
       End Property
   
   

    

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
   
   
   

    
   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

   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