首先先添加一个Form2窗体.接着分别在Form1中添加Text1文本框控件和在Form2中添加Text1文本框控件,先别更改它们的任何属性值.然后双击第一个Form1窗体,在里面输入如下代码:(这段代码只有在你关闭Form1窗体时,才被执行.)Private Sub Form_Unload(Cancel As Integer)
Dim Temp As String
Temp = Text1
Form2.Show
Form2.Text1 = Temp
End Sub
在Form1中的Text1控件中输入“123” 点击关闭按钮关闭Form1 显示Form2 然后Form2窗口中Text2控件的文本就是“123” 。求高人求代码Private Sub Command1_click()if text1.text = "123" thenMe.hide form2.visible = falseform2.showform2.text2.text = "123"Me UnloadEnd sub by: Qime Jie