前面各位都有一些不全的地方,以下代码经本人测试过,确保可行。
假设你的前一窗体是Form1,后一窗体是Form2
在Form1窗体的鼠标单击事件中写:
Private Sub Form_Click()
Me.Hide
Form2.Show
End Sub
在Form2窗体的Text1的Change事件中写:
Private Sub Text1_Change()
Form1.Text1.Text = Me.Text1.Text
End Sub
注:以上代码当你在Form2窗体的Text1中输入时,Form1窗体不会自动显示(因为你没说),如果要显示出来,则要在Private Sub Text1_Change()中加入Form1.Show即可。