0

有人可以给我一个例子吗?

场景是:

 **FORM1** = MDIPARENT
FORM2 = CHILD
FORM3 = CHILD

FORM2由 MDIPARENT 上的菜单打开 FORM2有一个文本框 - CompanyNameText 在此文本框旁边有一个打开的按钮,其中FORM3包含一个列表

我想要实现的是让用户从列表中选择一个公司名称,FORM3并将他们的选择显示在FORM2's Companynametextbox

我试过了 :-

FORM3:-  

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim formChild2 As AllocateCallBack = DirectCast(Me.MdiParent.MdiChildren(1), AllocateCallBack)
    formChild2.ReceiveValue(SelectTextBox.Text)
    End Sub

表格2:-

Public Sub ReceiveValue(ByVal value As String)
    CompanyNameTextBox.Text = value.ToString
    Me.Activate()
    Me.Refresh()
    End Sub

但我收到消息 Nullreferenceexception` 未处理。

我已经确认SelectTextBox之前有一个值。

请帮忙

4

1 回答 1

1

您可以将此代码添加到打开 FORM3 的 FORM2 中的按钮。

Dim frm3 As New FORM3()

If frm3.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
    Me.DoWhatYouWantWithThisValue(frm3.SelectTextBox.Text)
End If

当用户从 FORM3 的列表中选择公司时,您必须设置:

Me.DialogResult = Windows.Forms.DialogResult.OK
于 2013-06-14T08:56:58.807 回答