以下是一個獨立的類

Public Class Class1
    Private _Java As String
    Private _CSharp As String
    Private _VBNet As String
    Private _SQLServer As String

    Property Java() As String

        Get '獲取屬性的值
            Return _Java
        End Get

        Set(ByVal value As String) '設定屬性的值
            _Java = value
        End Set
    End Property

    Property CSharp() As String

        Get '獲取屬性的值
            Return _CSharp
        End Get

        Set(ByVal value As String) '設定屬性的值
            _CSharp = value
        End Set
    End Property

    Property VBNet() As String

        Get '獲取屬性的值
            Return _VBNet
        End Get

        Set(ByVal value As String) '設定屬性的值
            _VBNet = value
        End Set
    End Property

    Property SQLServer() As String

        Get '獲取屬性的值
            Return _SQLServer
        End Get

        Set(ByVal value As String) '設定屬性的值
            _SQLServer = value
        End Set
    End Property

End Class
 

以下是在一個視窗程式裡面 的一個按鈕的點選函式

Public Class Form1

    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TestClass1 As New Class1
        TestClass1.SQLServer = TextBox1.Text
        TestClass1.Java = TextBox2.Text
        TestClass1.CSharp = TextBox3.Text
        TestClass1.VBNet = TextBox4.Text

        ListBox1.Items.Add("程式設計師：" & Me.TextBox5.Text)
        ListBox1.Items.Add("SqlServer 成績：" & TestClass1.SQLServer)
        ListBox1.Items.Add("Java  成績：" & TestClass1.Java)
        ListBox1.Items.Add("C# 成績：" & TestClass1.CSharp)
        ListBox1.Items.Add("VBNET  成績：" & TestClass1.VBNet)



    End Sub
End Class
 

執行效果

說明：

1）estClass1.SQLServer = TextBox1.Text 這個程式碼 ，本質是呼叫了

 Set(ByVal value As String) '設定屬性的值             _SQLServer = value         End Set

2）ListBox1.Items.Add("SqlServer 成績：" & TestClass1.SQLServer)

本質是呼叫了

        Get '獲取屬性的值             Return _SQLServer         End Get

××××

通過程式斷點後，可以監控這個流程