Proprietà ReadOnly e WriteOnly

ReadOnly Property [Nome]() As [Tipo]
    Get
        '...
        Return [Valore]
    End Get
End Property 

• I dati a cui essa fornisce accesso sono importanti per la vita della classe, ed è quindi necessario lasciare che la modifica avvenga tramite altri metodi della classe stessa. Tuttavia, non c'è motivo di nasconderne il valore al codice esterno, cosa che può anche rivelarsi molto utile, sia come dato da elaborare, sia come informazione di dettaglio;
• La proprietà esprime un valore che non si può modificare perchè per propria natura immutabile. Un classico esempio può essere la data di nascita di una persona: tipicamente la si inserisce come parametro del costruttore, o la si preleva da un database, e viene memorizzata in un campo esposto tramite proprietà ReadOnly. Questo è logico, poiché non si può cambiare la data di nascita; è quella e basta. Un caso particolare sarebbe quello di un errore commesso durante l'inserimento della data, che costringerebbe a cambiarla. In questi casi, la modifica avviene per altre vie (metodi con autenticazione o modifica del database);
• La proprietà esprime un valore che viene calcolato al momento. Questo caso è molto speciale, poiché va al di là della normale funzione di wrapper che le proprietà svolgono normalmente. Infatti, si può anche scrivere una proprietà che non sovrintende ad alcun campo, ma che, anzi, crea un campo fittizio: ossia, da fuori sembra che ci sia un'informazione in più nella classe, ma questa viene solo desunta o interpolata da altri dati noti. Esempio:
  

  Class Cube
      Private _SideLength As Single
      Private _Density As Single
      
      Public Property SideLength() As Single
          Get
              Return _SideLength
          End Get
          Set(ByVal value As Single)
              If value > 0 Then
                  _SideLength = value
              Else
                  _SideLength = 1
              End If
          End Set
      End Property
      
      Public Property Density() As Single
          Get
              Return _Density
          End Get
          Set(ByVal value As Single)
              If value > 0 Then
                  _Density = value
              Else
                  _Density = 1
              End If
          End Set
      End Property
      
      Public ReadOnly Property SurfaceArea() As Single
          Get
              Return (SideLength ^ 2)
          End Get
      End Property
      
      Public ReadOnly Property Volume() As Single
          Get
              Return (SideLength ^ 3)
          End Get
      End Property
      
      Public ReadOnly Property Mass() As Single
          Get
              Return (Volume * Density)
          End Get
      End Property
  End Class 

  Vedendola dall'esterno, si può pensare che la classe Cube contenga come dati concreti (variabili) SideLength, Density, SurfaceArea, Volume e Mass, e che questi siano esposti tramite una proprietà. In realtà essa ne contiene solo i primi due e in base a questi calcola gli altri.

Module Esempio3
    Class LogFile
        Private _FileName As String
        Private _CreationTime As Date

        'Niente deve modificare il nome del file, altrimenti
        'potrebbero verificarsi errori nella lettura o scrittura
        'dello stesso, oppure si potrebbe chiudere un file
        'che non esiste ancora
        Public ReadOnly Property FileName() As String
            Get
                Return _FileName
            End Get
        End Property

        'Allo stesso modo non si pu? modificare la data di
        'creazione di un file: una volta creato, viene
        'prelevata l'ora e il giorno e impostata la
        'variabile. Se potesse essere modificata
        'non avrebbe più alcun significato
        Public ReadOnly Property CreationTime() As Date
            Get
                Return _CreationTime
            End Get
        End Property

        Public Sub New(ByVal Path As String)
            _FileName = Path
            _CreationTime = Date.Now
        End Sub
    End Class
End Module  

Una nota sui tipi reference

Class ASystem
    Private _Box As Cube
    
    Public ReadOnly Property Box() As Cube
        Get
            Return _Box
        End Get
    End Property
    
    '...
End Class

'...

Dim S As New ASystem()
S.Box.SideLength = 4