form1Private Sub Command2_Click() Form2.Show 1 End Subform2Private Sub Text1_Change() Form3.Text1 = Text1 Form3.Show 1 End Sub
主窗体(Form1)有一个Text1,再在工程中添加一个Form2.且Form2中也放置一个Text1. 在Form1中放置如下代码 Private Sub Text1_Change() Form2.Show Form2.Text1 = Text1 Text1.SetFocus End Sub 你试试效果吧,不知可否满意
Private Sub Form_Load() Form2.Show Text1.SetFocus End SubPrivate Sub Text1_Change() Form2.Label1 = Text1 End Sub 可以定义一个窗体级变量,让这个变量在两个窗体之间传递变量值,先加载窗体1 ,就不会老是弹窗了
Form2.Show 1
End Subform2Private Sub Text1_Change()
Form3.Text1 = Text1
Form3.Show 1
End Sub
在Form1中放置如下代码
Private Sub Text1_Change()
Form2.Show
Form2.Text1 = Text1
Text1.SetFocus
End Sub
你试试效果吧,不知可否满意
Form2.Show
Text1.SetFocus
End SubPrivate Sub Text1_Change()
Form2.Label1 = Text1
End Sub
可以定义一个窗体级变量,让这个变量在两个窗体之间传递变量值,先加载窗体1 ,就不会老是弹窗了