191问答库 > VB，使FORM1内单击创建的text等于，FORM2的TEXT里输入的值。

VB，使FORM1内单击创建的text等于，FORM2的TEXT里输入的值。

2025-04-23 23:40:44

推荐回答（1个）

回答1：

在form1放置控件组 text1, 只留text1(0), visible属性设置为 false
form2放置 text2 和commandbutton1
form1 代码：
Public n As Integer
Private Sub Form_Click()
If Text1(0).Visible = False Then
Form2.Show 1
Text1(0).Visible = True
n = 0
Exit Sub
End If
n = n + 1
Load Text1(n)
Text1(n).Top = Text1(n - 1).Top + Text1(0).Height + 200
Form2.Show 1
Text1(n).Visible = True
End Sub
form2代码：
Private Sub Command1_Click()
Form1.Text1(Form1.n).Text = Text2.Text
Unload Me
End Sub