Question

我有form1输入电影详情

在这种形式1我有一个名为NVideosGenres的文本框

通过这个文本框，我可以打开带有空格的form2

form2包含5个组合框，让用户选择类型，如果有多个

当用户选择类型时，它们将以相同的方式应用于文本框

例如，我从三个组合框中选择

行动 - 战争 - 西方

所以现在我有一个问题，因为我知道传递价值我应该这样做

Videos.NVideosGenres.text = me.FinalGenres.text
me.close()

当我点击按钮时，form2将关闭，但数据不会传递给form1中的NVideosGenres

任何帮助??

Answer 1

有许多方法可以做到这一点。最简单的方法之一是在Form2上创建一个属性，该属性包含对主调用表单的引用。然后，您可以直接从Form2设置文本框（或其他）的值。这绝对不是最好的方法，但它确实快速而简单。

Private Sub btnShowForm2_Click(sender As System.Object, e As System.EventArgs) Handles btnShowForm2.Click
   'Create a new instance of Form2 (called frmDetail in this example).
   Dim frm2 As New frmDetail()
   'Set the MyParentForm property of Form2 to this form.
   frm2.MyParentForm = Me
   'Show the form.
   frm2.ShowDialog()
End Sub

现在在Form2中，当你点击＆＃34; OK＆＃34;按钮关闭表单，您可以使用引用父表单的属性直接设置值。

' Property to hold a reference to the calling form.
Private mParentForm As frmMain
Public Property MyParentForm() As frmMain
    Get
        Return mParentForm
    End Get
    Set(ByVal value As frmMain)
        mParentForm = value
    End Set
End Property

' When I click the OK button, I will store the value of my various textboxes to properties.
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
    'Set the value of the Genre textbox on the parent form to the value
    'of the textbox on my current form.
    MyParentForm.txtGenre.Text = txtGenre.Text
    Me.Hide()
End Sub

将数据从form1中的文本框传递到visual basic中打开的form2中的文本框

1 个答案: