Incapsulamento

Se ricordo bene, l'incapsulamento consiste nel predisporre dei precisi canali d'accesso a una classe, mantenendo privato tutto ciò che si può, e manipolandolo attraverso questi specifici canali.

Provo un "incapsulamento" sulla piccola classe che ho creato a titolo di esercizio...

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.propertySetting(789)
        questaClasse.metodo()
    End Sub

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

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

    Sub propertySetting(ByVal valore As Int32)
        proprieta = valore
    End Sub

    Sub metodo()
        MsgBox(proprieta)
    End Sub

End Class

Ecco: il valore della proprietà (che di default è 444) viene stabilito da un metodo pubblico, mentre la proprietà è stata resa privata. Si dovrebbero evitare così manipolazioni inopportune del valore della proprietà da esterno.