[Visual Baisc] Property 사용해 새로고침 기능 구현

좌) 자식    우) 부모

세팅파일에서 항목(기본 데이터를 가져와)을 부모폼의 내용을 넣어 저장하고 그 내용들을 자식폼으로 전달 / 새로고침

---

** 참조 해야함 **

 - 나 같은 경우 부모폼과 자식폼에서 세팅폼으로 값을 넣어주고 가지고 오기에 참조를 걸어주고

또 부모폼에서 자식폼으로 내용들을 바꾸어 주기에 부모폼에서 자식폼을 참조해 주었다.

---

새로고침 아이디어는 Stack Flow에서 다른 메소드를 빼내서 원하는 내을 넣도록 작성한다음 그 메소드를 불러내면 된다라는 내용을 사용해 구현

 

그랬을때 처음 입력한 값들로 열린 폼들이 존재한 그대로 새로운 값을 넣어 새로고침했을때

폼을 재실행 하지 않고 값이 변화되는 것을 볼 수 있다.

---

 

Setting

Public Class Setting
    Public name1, name2, name3, name4 As String
End Class

 

부모

Public Class 부모

    Public getDLLData As dll.info_Patient
    Public transData As test2.자식


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click   '값전달

        getDLLData = New dll.info_Patient   '--세팅파일에 넣어야할 공간 필요
        transData = New test2.자식    '-- 세팅폼에 넣어야하는 값을 자식폼에 넣어야할 공간 필요

        getDLLData.name1 = TextBox1.Text
        getDLLData.name2 = TextBox2.Text
        getDLLData.name3 = TextBox3.Text
        getDLLData.name4 = TextBox4.Text

        transData.transName = getDLLData
        transData.Show()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click   '새로고침

        getDLLData.name1 = TextBox1.Text
        getDLLData.name2 = TextBox2.Text
        getDLLData.name3 = TextBox3.Text
        getDLLData.name4 = TextBox4.Text

        'transData.transName = getDLLData    '---- 값을 보내주는 역할만 함 
        transData._Name()   '--- 값을 다시넣어주는 메소드 실행시킴

    End Sub

End Class

 

자식 - 이곳에서 _Name이라는 메소드로 값을 바꾸어준다

Public Class 자식

    Public transName As dll.info_Patient


    Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Load

        _Name()

    End Sub

    Public Sub _Name()

        TextBox1.Text = transName.name1
        TextBox2.Text = transName.name2
        TextBox3.Text = transName.name3
        TextBox4.Text = transName.name4
    End Sub

End Class

 

 

---