请教一个VB添加控件的问题

来源：百度知道编辑：UC知道时间：2024/06/23 16:39:19

Private Sub Form_Click()
Form1.Controls.Add "VB.TextBox", "text1"
With Form1!Text1
.Visible = True
.Width = 1000
.Height = 1000
.Top = 500
.Left = 500
End With
Text1.Text = Text2.Text
End Sub
程序如上，我开始画了一个text2.text，后来又动态添加了一个，最好那句程序为什么不对呢？

Dim Text1 As TextBox'放在通用说明部分

Private Sub Form_Click()
Set Text1 = Form1.Controls.Add("VB.TextBox", "Text1")
With Form1!Text1
.Visible = True
.Width = 1000
.Height = 1000
.Top = 800
.Left = 500
End With
Text1.Text = Text2.Text
End Sub

这样就可以了

VB 请教一个控件的问题！请教一个关于VB Combo控件的问题 vb控件的一个问题!!! VB时间控件的一个问题!!! VB RichTextBox控件的一个小问题本人新手请教一个关于vb中MScomm控件的问题 VB的控件问题 vb的控件问题如何永久的添加vb控件？请教vb中Text控件的不换行问题