在我的vb程序中，我有两个表单，它们可以一起工作，允许您定义几乎任意数量的设计。在第一个表单中，有一个二维数组，存储一个整数（不重要）和一个ID类，我在另一个表单中将其定义为公共内部类。单击此表单中的“定义ID”按钮将转到下一个表单，在那里，您将根据在第一个窗体的组合框中选择或输入的数组中的索引定义一个新ID或编辑一个旧ID，使用第二形式中的多个字段来定义其不同方面。我想做的是，当用户在第二个表单中定义ID时，第一个表单的代码将被挂起，然后他们单击第二个窗体上的“继续”按钮。经过一点错误检查，该表单要么暂时隐藏（这就是我最初实现它的方式），要么返回编辑后的ID对象，但前提是错误检查没有表明任何输入不正确。最初，我只是使用newForm.curID获取ID，并将其设置为数组中的位置，等待用户使用newForm.showDialog（）完成，但有时程序会返回null异常，因为我认为我没有正确复制ID。此外，尽管错误显示的时间很短，但“继续”按钮会保存ID，而不管其正确性如何。有没有一种方法可以操作showDialog以从中获得结果响应？

短版本：我需要将一个窗体中内部类的对象返回到调用窗体中的数组，或者等待窗体完成并使用调用窗体复制其对象，然后关闭被调用方窗体。

First Form的“定义”按钮方法

Private Sub DesignButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesignButton.Click
    Me.totalCoilBox.Focus()  calls validating method, makes textbox yellow if invalid 

    If totalCoilBox.BackColor = Color.White Then
        Dim newForm As New IVD_DesignData  creates an object of ID called curID as well 

        Try
            If DesignIDBox.Items.Contains(DesignIDBox.Text) Then  design exists
                set the curID to the one already in the array 
                newForm.curID = CGID(Integer.Parse(DesignIDBox.Text), 1)
                 set number of coils to new number, if applicable 
                CGID(Integer.Parse(DesignIDBox.Text), 0) = Integer.Parse(DesignIDBox.Text)

                 show dialog for editing 
                newForm.ShowDialog()
                 put the (edited) curID back into the array 
                CGID(Integer.Parse(DesignIDBox.Text), 1) = newForm.curID
            Else  design does not exist, make a new one
                put number of coils into new array spot 

                CGID(Integer.Parse(DesignIDBox.Text), 0) = Integer.Parse(totalCoilBox.Text)
                 set the design ID to the number of defined IDs plus one 
                newForm.curID.designID = Integer.Parse(DesignIDBox.Text)
                 show dialog for editing 
                newForm.ShowDialog()
                 add curID into the array 
                CGID(Integer.Parse(DesignIDBox.Text), 1) = newForm.curID
                 add that design number to the dropdown box 
                DesignIDBox.Items.Add(newForm.curID.ToString())
                 increment number of defined designs 
                Current_IDBox.Text = Integer.Parse(Current_IDBox.Text) + 1
            End If

        Catch ex As ArgumentOutOfRangeException  dropdown box has no elements in it;
            do the same as adding a new ID:
            put number of coils into new array spot 
            CGID(Integer.Parse(DesignIDBox.Text), 0) = Integer.Parse(totalCoilBox.Text)
             set the design ID to the number of defined IDs plus one 
            newForm.curID.designID = Integer.Parse(DesignIDBox.Text)
             show dialog for editing 
            newForm.showDialog()
             add curID into the array 
            CGID(Integer.Parse(DesignIDBox.Text), 1) = newForm.curID
             add that design number to the dropdown box 
            DesignIDBox.Items.Add(newForm.curID.ToString())
             increment number of defined designs 
            Current_IDBox.Text = Integer.Parse(Current_IDBox.Text) + 1
        End Try
        DesignIDBox.Text = newForm.curID.ToString()
        newForm.Close()
    End If

Second Form的“继续”按钮方法

Private Sub ContinueButton_Click(ByVal sender As System.Object, ByVal e As ByVal e As System.EventArgs) Handles ContinueButton.Click
    Me.NTBox.Focus()
    Me.IDBox.Focus()
    Me.ODBox.Focus()
    Me.TBox.Focus()
    Me.WBox.Focus()
    If HSCBox.Checked Then
        Me.HSC_MultBox.Focus()
    Else
        curID.HSC = "n"
        curID.HSC_Mult = 1
    End If

    If NTBox.BackColor = Color.White And IDBox.BackColor = Color.White And ODBox.BackColor = Color.White And TBox.BackColor = Color.White And WBox.BackColor = Color.White And ((HSCBox.Checked And HSC_MultBox.BackColor = Color.White) Or Not (HSCBox.Checked)) Then
         success!  window falls back? 
    End If
End Sub

感谢您的帮助！我更精通Java，所以这个VB项目有时有点令人沮丧。