Question

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

VB中，FORM1里能单击鼠标创建TEXT，能创建很多个，同时单击的时候会弹出FORM2。FORM2是个小键盘能输入数字。如何让FORM2里输入的数字在FORM1创建的TEXT里显示，并保证每次FORM1的TEXT值对应当时弹出的FORM2里输入的值。

Answer 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