Property get e set, impostazione di un valore di default per una proprietà di una classe.

L'uso di Get e Set per le proprietà...
La proprietà si può definire anche con una semplice dichiarazione di una variabile.
Però l'uso della routine Property permette alcuni giochetti, come l'impostare un valore di default per una proprietà.

Qui abbiamo un valore di default pari a 444, impostando la variabile nome a 444.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim questaClasse As New miaClasse

        questaClasse.metodo()
    End Sub

End Class
Class miaClasse
    Dim nome As Int32 = 444
    Public Property proprieta() As Int32
        Get
            Return nome
        End Get

        Set(ByVal value As Int32)
            nome = value
        End Set
    End Property

    Sub metodo()
        MsgBox(proprieta)
    End Sub

End Class

Il risultato visualizzato nella MessageBox è 444.

---

Adesso impostiamo la proprietà da esterno a 12345:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim questaClasse As New miaClasse
        questaClasse.proprieta = 12345
        questaClasse.metodo()
    End Sub

End Class
Class miaClasse
    Dim nome As Int32 = 444
    Public Property proprieta() As Int32
        Get
            Return nome
        End Get

        Set(ByVal value As Int32)
            nome = value
        End Set
    End Property

    Sub metodo()
        MsgBox(proprieta)
    End Sub

End Class

Il risultato visualizzato nella MessageBox è 12345

---

Quindi, se non viene specificato nessun valore della proprietà, essa è, di default, pari a 444, mentre se viene specificato un valore la proprietà assume il valore specificato.