VB. NET and other attributes

There are three examples

1. Public   Property Rank () As   String   ' Note that the attribute name is enclosed in parentheses.
   Get
   Return Strpos
   End   Get
   Set ( Byval Value As   String )
   Strpos = Value
   End   Set
   End Property

    

2. Public   Readonly   Property Fig () As   String ' Readonly must be before Property
   Get
   Dim I As   Integer
   Dim S As   String
   S =   Join (Strholobby, " , " ) ' This function is used to connect strings in the array.
   Return S
   End   Get
   End Property

    
   3,

   ' This is the index definition tool!
   Public   Readonly   Property Indexholobby ( Byval Index As   Integer ) As   String
   Get
   If (Strholobby Is   Nothing ) Or (Index >   Ubound (Strholobby )) Then
   ' Have you noticed the above ubound? And lbound ()!
   ' Their namespace is Microsoft. VisualBasic.
   Return   Nothing
   End   If
   Return Strholobby (INDEX)
   End   Get
   End Property

   4,

   Public   Writeonly   Property Whobby () As   String
   Set ( Byval Value As   String )
   If Value Is   Nothing   Then
   If   Not (Strholobby Is   Nothing ) And Strholobby. getlength ( 0 ) >   1   Then
   Redim   Preserve Strholobby ( Ubound (Strholobby) -   1 )
   End   If
   Else
   If Strholobby Is   Nothing   Then
   Redim Strholobby ( 0 )
   Else
   Redim   Preserve Strholobby ( Ubound (Strholobby) +   1 )
   End   If
   Strholobby ( Ubound (Strholobby )) = Value
   End   If
   End   Set
   End Property

   5,

   Default   Public   Property Words ( Byval Index As   Integer ) As   String ' Note default
   Get' have you noticed the parameter? When using this attribute, it is the same as implementing the indexer. <Classobj (INDEX)>
   Words = Thewords (INDEX)
   End   Get
   Set ( Byval Value As   String )
   Thewords (INDEX) = Value
   End   Set
   End Property