VB6.0如何在一个窗体上弹出另一个窗体，然后返回另一个窗体的某个值

Question

是这样的我有一个窗体1,点击其中一个button弹出窗体2.窗体2中有一个listview ，我选择了其中的几行，并将结果保存到公用变量里了。现在我想要在窗体2关闭之后，将这个公用变量的结果返回给窗体1的textbox1.但是我发现总是先textbox1.text=bomstr再FrmBomList.Show,
这个textbox1的text总是空的，要如何取到窗体2中的值(bomstr)?还是我的哪里不对？
Private Sub getBomInfo()
Dim bomlist As FrmBomList
FrmBomList.Show
textbox1.text=bomstr
END SUB
窗体2中Public bomstr As String
Private Sub Command2_Click()
bomstr = ""If ListView1.ListItems.Count < 1 Then
    Dim i As Integer
    i = MsgBox("此Part无信息，请确认", 16, "提示")  '消息框提示
Else
    Dim PartInfo As String
    PartInfo = ""
    For i = 0 To ListView1.ListItems.Count - 1
        'If ListView1.ListItems(I + 1).Checked = True Then
        If ListView1.ListItems.Item(i + 1).Checked = True Then
        PartInfo = PartInfo + CStr(ListView1.ListItems(i + 1).SubItems(1)) + "," 'i+1为定义的行数
        End If
    'I = I + 1
    Next
        If Len(PartInfo) >= 1 Then
            Text1.Text = Mid(PartInfo, 1, Len(PartInfo) - 1)
            bomstr = Text1.Text
        End If
End If
End Sub

Answer 1

FrmBomList.Show 1

Answer 2

谢谢楼上的大神回复，这个方法我也试过了，这也是先赋值，然后再将 frm2弹出的，在frm里面选择数据还是影响不了frm1的结果

Answer 3

你建一个moudle，建一个全局变量就是了

Answer 4

不好意思，写错了，是建一个module

Answer 5

在Form2 中 加 一条  form1.text1.text=bomstr

Answer 6

在From2 的 command2事件中 最后 加一条：From1.Text1.text=bomstr 应该就可以

Answer 7

http://zhidao.baidu.com/question/140287908.htmlhttp://zhidao.baidu.com/question/55286693.htmlhttp://zhidao.baidu.com/question/96503971.html

Answer 8

多谢版主大手的热心帮忙，不过我的问题可能有一些不同。是这样的，我这两段代码实际上金蝶的K3二次开发里面的东东，这个窗口实际上是要在一个控件上调用出来，所以也不能用show 1,me这样。但是，如果不这样调，他会直接先执行完show后面的代码，再弹出我需要show的这个frm.....

Answer 9

'Form1
Option ExplicitPublic Property Let bomstr(ByVal RHS As String)
    textbox1.Text = RHS
End PropertyPrivate Sub getBomInfo()
    FrmBomList.Action Me
End Sub
'FrmBomList
Option ExplicitPrivate m_OwnerForm As Form1Public Sub Action(ByVal OwnerForm As Form1)
    Set m_OwnerForm = OwnerForm
    m_OwnerForm.bomstr = ""
    Me.Show , OwnerForm
End SubPrivate Sub Command2_Click()
    If ListView1.ListItems.Count < 1 Then
        Dim i       As Integer
        i = MsgBox("此Part无信息，请确认", 16, "提示")  '消息框提示'
    Else
        Dim PartInfo As String
        PartInfo = ""
        For i = 0 To ListView1.ListItems.Count - 1
            'If ListView1.ListItems(I + 1).Checked = True Then
            If ListView1.ListItems.Item(i + 1).Checked = True Then
                PartInfo = PartInfo + CStr(ListView1.ListItems(i + 1).SubItems(1)) + ","    'i+1为定义的行数'
            End If
            'I = I + 1
        Next
        If Len(PartInfo) >= 1 Then
            Text1.Text = Mid(PartInfo, 1, Len(PartInfo) - 1)
            m_OwnerForm.bomstr = Text1.Text
        End If
    End If
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set m_OwnerForm = Nothing
End Sub

Answer 10

Form1Private Sub Command1_Click()
    Form2.Show 1
End SubPrivate Sub Command1_Click()
    'strSelectedName = ""If ListView1.ListItems.Count < 1 Then
    Dim i As Integer
    i = MsgBox("此Part无信息，请确认", 16, "提示")  '消息框提示
Else
    Dim PartInfo As String
    PartInfo = ""
    For i = 0 To ListView1.ListItems.Count - 1
        'If ListView1.ListItems(I + 1).Checked = True Then
        If ListView1.ListItems.Item(i + 1).Checked = True Then
            'PartInfo = PartInfo + CStr(ListView1.ListItems(i + 1).SubItems(1)) + "," 'i+1为定义的行数
            PartInfo = PartInfo + ListView1.ListItems(i + 1).Text + ","
        End If
    'I = I + 1
    Next
        If Len(PartInfo) >= 1 Then
            'Text1.Text = Mid(PartInfo, 1, Len(PartInfo) - 1)
            'bomstr = Text1.Text
            Form1.Text1.Text = PartInfo
        End If
End IfUnload Me
    
End SubPrivate Sub Form_Load()
For i = 1 To 10
    Me.ListView1.ListItems.Add i, "A" + CStr(i), "Boss" + CStr(i)
Next i
End Sub

Answer 11

后面的一段代码是在Form2.