父子窗体通讯

一、描述
1、父窗体对子窗体调用，传入参数。子窗体打开。
2、子窗体修改数据后，回传消息给父窗体并传回参数，父窗体响应。
二、实验步骤
1、创建2个窗体。
2、每个窗体添加一个按钮和一个文本框。
3、窗体1按钮，打开窗体2，同时将文本框数据传递给窗体2内的文本框。
4、窗体2文本框显示窗体1传递值，修改后，点击按钮，自身关闭，窗体1文本框内显示窗体2修改后的文本。
三、代码实现

Public Class Form1

    Private WithEvents my_event As Form2

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If my_event Is Nothing Then

            my_event = New Form2(TextBox1.Text)

        Else

            my_event.showstr(TextBox1.Text)

        End If

        'form2.MyEvent += New MyDelegate(AddressOf form2_MyEvent)

        my_event.Show()

    End Sub

    Private Sub form2_MyEvent(ByVal text As String) Handles my_event.MyEvent

        TextBox1.Text = text

        my_event = Nothing

    End Sub

End Class

 Public Class Form2

    Public Event MyEvent(ByVal str As String)

    Public Sub New(ByVal str As String)

        InitializeComponent()

        showstr(str)

    End Sub

    Public Sub showstr(ByVal str As String)

        TextBox1.Text = str

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        RaiseEvent MyEvent(TextBox1.Text)

        Me.Close()

    End Sub

End Class