2个窗体
第一窗体有一个按钮,单击后出现第二个窗体输入数据确定后,把结果返回给第一个窗体,并执行第一个窗体下面的代码例如
Load two_frm
two_frm.Visible = True //调用第二个窗体
就是在这个地方如何让程序停留在这里等待第二个窗体的结果?if two_frm.a = "" then //判断第二个窗体的结果end if
第一窗体有一个按钮,单击后出现第二个窗体输入数据确定后,把结果返回给第一个窗体,并执行第一个窗体下面的代码例如
Load two_frm
two_frm.Visible = True //调用第二个窗体
就是在这个地方如何让程序停留在这里等待第二个窗体的结果?if two_frm.a = "" then //判断第二个窗体的结果end if
改为two_frm.show 1 就可以啦
DOEVENTS
Loop
Private Sub Command1_Click()
Form2.Visible = True
If Form2.Caption = "" Then
Form1.Hide
End If
End Sub