基础语法：在VB.net里面 操作 类属性的读取和写入

以下是一个独立的类

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

××××

通过程序断点后，可以监控这个流程