vb.net 弹出窗口将值返回主窗口

vb.net 弹出窗口将值返回主窗口

vb.net

主窗口弹出窗口将值返回主窗口

Public Class Form1
    Private Sub OpenChildFormButton_Click(sender As Object, e As EventArgs) Handles OpenChildFormButton.Click
        ' 创建 Form2 实例
        Dim childForm As New Form2()

        ' 设置需要传递的值
        Dim valueToPass As String = "Hello from Form1!"
        childForm.ValueFromParent = valueToPass

        ' 打开子窗口
        childForm.ShowDialog()

        ' 在子窗口关闭后，你可以获取可能在子窗口中修改的值
        Dim updatedValue As String = childForm.ValueFromChild
        MessageBox.Show("Value from child form: " & updatedValue)
    End Sub
End Class

```vbnet

子窗口

Public Class Form2
    ' 属性用于存储从父窗口传递过来的值
    Private _valueFromParent As String
    Public Property ValueFromParent As String
        Get
            Return _valueFromParent
        End Get
        Set(value As String)
            _valueFromParent = value
        End Set
    End Property

    ' 属性用于存储子窗口可能修改的值
    Private _valueFromChild As String
    Public Property ValueFromChild As String
        Get
            Return _valueFromChild
        End Get
        Set(value As String)
            _valueFromChild = value
        End Set
    End Property

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 在子窗口加载时，可以使用传递过来的值进行初始化
        TextBox1.Text = ValueFromParent
    End Sub

    Private Sub UpdateValueButton_Click(sender As Object, e As EventArgs) Handles UpdateValueButton.Click
        ' 在子窗口中修改值
        ValueFromChild = TextBox1.Text
        Me.Close()
    End Sub
End Class