在VB.net裡面 操作 類屬性的讀取和寫入
阿新 • • 發佈:2018-12-10
以下是一個獨立的類
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
××××
通過程式斷點後,可以監控這個流程