关于form调用的问题

Question

我设置了2个form,form1和form2
form1为我的主窗体,我在form2中加了3个textbox和2个button
名称分别为text1,text2,text3,OKButton,CancelButton
我要完成运行时候在form1中调用form2,这时form1中程序暂停
开始在form2的textbox中输入内容,内容不能为空,输入完毕后
点击OKButton则回到form1,并且在form1中能使用form2中输入
的字符串,点击CancelButton则返回form1,什么也不做
请问我的form1和form2中相关代码该怎么写,3个textbox的属性
该怎么设顶定,才能使我的输入生效(我不会使用text)
拜谢各位达人了!!

Answer 1

定义几个全局变量就可以了。比如说定义textstr1,textstr2,textstr3三个string，然后再定义一个全局变量，比如说叫做flag作为标志。如果按下的是OKButton，则将text1、2、3的值分别付给这几个全局变量，flag赋值为1。如果按下的是CancelButton，则将flag赋值为0。当控制权返回到form1之后，你判断flag就可以知道是按下的哪个键，然后再处理即可。

Answer 2

'Form1代码
Private Sub Form_Load()
Me.AutoRedraw = True
Command1.Caption = "显示Form2"
End SubPrivate Sub Command1_Click()
Form2.Show vbModal
End Sub'Form2代码
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End SubPrivate Sub OKButton_Click()
If Len(Text1) Or Len(Text2) Or Len(Text3) Then
Form1.Cls
Form1.Print "Text1：" & IIf(Len(Text1), Text1, "无内容")
Form1.Print "Text2：" & IIf(Len(Text2), Text2, "无内容")
Form1.Print "Text3：" & IIf(Len(Text3), Text3, "无内容")
Unload Me
End If
End SubPrivate Sub CancelButton_Click()
Unload Me
End Sub

Answer 3

用全局变量保存你form2的输入内容。其他的就是一样。