[VB.NET] Property

 

속성 프로시저 - Visual Basic

 

출처 : https://youtu.be/QXakJJHkz8k

---

버튼 1,2는 제외

요구사항 

좌측의 텍스트 박스에 값을 넣어  "값넣기"버튼을 누르면

해당 값들이 MessageBox에서 "이름 : 홍길동" 과 같은 모양으로 출력되며

들어간 값들을 "값보이게"라는 버튼을 눌렀을 때 MessageBox라는 모양으로 출력되도록

 

Public Class Form1

    Private _test As Setting2.test
    Private returnVal As String


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'textbox에 넣어 버튼을 누르면 값을 전송하고 받아 메세지 박스로 띄우기

        _test = New Setting2.test

        'private 호출  Name ,    age ,      address,    Tel 

        Dim newName As String = _test._name
        Dim newAge As Integer = _test._age
        Dim newAddress = _test._address
        Dim newTel As String = _test._tel

        newName = TextBox1.Text
        newAge = TextBox2.Text
        newAddress = TextBox3.Text
        newTel = TextBox4.Text

        'msgbaox  
        MessageBox.Show("이름 : " & newName & Chr(13) & "나이 : " & newAge & Chr(13) & "주소 :" & newAddress & Chr(13) & "전화 :" & newTel)

        returnVal = _test._recall(newName, newAge, newAddress, newTel)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        '값을 넣어주는 인자값

        Dim final() As String = Split(returnVal, "|")
        Dim data = New String() {"이름 : ", "나이 : ", "주소 : ", "번호 : "}


        For i As Integer = 0 To 3

            RichTextBox1.Text += data(i) & final(i) & Chr(13)

        Next

    End Sub

End Class

Public Class test

    Private Name As String
    Private age As Integer
    Private address As String
    Private Tel As String


    '프로포티 생성.
    Public Property _name As String
        Get
            Return Name
        End Get
        Set(value As String)
            Name = value
        End Set
    End Property

    Public Property _age As Integer
        Get
            Return age
        End Get
        Set(value As Integer)
            age = value
        End Set
    End Property

    Public Property _address As String
        Get
            Return address
        End Get
        Set(value As String)
            address = value
        End Set
    End Property

    Public Property _tel As String
        Get
            Return Tel
        End Get
        Set(value As String)
            Tel = value
        End Set
    End Property


    Public Function _recall(name As String, age As Integer, address As String, tel As String) As String

        Dim returnName As String = name
        Dim returnAge As String = CInt(age)
        Dim returnAddress As String = address
        Dim returnTel As String = tel

        Return returnName + "|" + returnAge + "|" + returnAddress + "|" + returnTel

    End Function


End Class