Question

用VB程序代码在窗体中创建文本框后，如何引用所创建文本框的内容？

用VB代码在窗体上创建三个文本框，并为前2个文本框随机赋值，我能够实现在窗体中创建文本框并为其中的两个赋值，但在求和时出现引用错误的问题，如何让第三个文本框的内容等于前两个文本框的数字之和？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

假设text3=text1+text2，你可以这样：
Text3.Text = Val(Text1.Text) + Val(Text2.Text)

追问

谢谢您的热心。不过这种方法我试过了，不行，因为是用程序代码创建的文本框，而不是在窗体上手动添加的文本框，用此方法在编译时提示实时错误“424”要求对象。没弄明白是怎么回事。

追答

我估计似乎你在做文本相加的时候，添加text和计算分别在不同的子程序。

我也不是很了解他的原理，不过有点类似变量。我都是先用一个变量或者数组来表示这些动态的控件的。然后先定义这些变量，这样就能在form的各个程序里相互借用了。

你试试我我下面的程序，我先添加了text1-text3，然后用t1到t3表示，t3=t1+t2.

ps:把问题说的清楚点，可以让别人更好的帮你回答。希望上述内容可以帮到你。

Dim t1, t2, t3
Private Sub Command1_Click()
t3.Text = Val(t2) + Val(t1)
End Sub
Private Sub Form_Load()
Set t1 = Controls.Add("Vb.textbox", "text1")
t1.Move 550, 550, 800, 500
Set t2 = Controls.Add("Vb.textbox", "text2")
t2.Move 550, 1100, 800, 500
Set t3 = Controls.Add("Vb.textbox", "text3")
t3.Move 550, 1650, 800, 500
t1.Visible = True
t2.Visible = True
t3.Visible = True
End Sub