VB中如何动态添加一个text控件？

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

End Sub

'把上面代码放入窗体代码区，运行，然后点击窗体看看

参照一下MSDN，不过就你的情况建议你使用控件数组，使用load方法添加VBControlExtender 对象 提供 Visual Basic VBControlExtender 的各种属性。语法VBControlExtender说明VBControlExtender 对象主要被用于动态地使用 Add 方法将控件添加到 Controls 集合这样的情况。在这一点上，VBControlExtender 对象对开发者是最有用的，因为它提供了一系列通用属性、事件和方法。对象的另一个功能是 ObjectEvent 事件，该事件的作用是对动态添加的控件发出的所有事件进行解释。下面的例子中首先声明了一个 VBControlExtender 类型的对象变量，然后在添加控件的时候设置变量。该示例还说明了如何编写 ObjectEvent 事件处理程序。Option Explicit Dim WithEvents objExt As VBControlExtender ' 使用 WithEvents 声明 VBControlExtender 变量 Private Sub LoadControl() Licenses.Add "Project1.Control1", "ewrinvcmcoe" Set objExt = Controls.Add("Project1.Control1", "myCtl") objExt.Visible = True ' 该控件在缺省情况下为不可见的。 End Sub Private Sub extObj_ObjectEvent(Info As EventInfo) ' 使用 Select Case 语句编写控件的事件处理程序。 Select Case Info.Name Case "Click" ' 在此处处理 Click 事件。 ' 在这里处理其他情况 Case Else ' 未知事件 ' 在此处理各种未知的事件。 End SelectEnd Sub将引用值赋值给变量时的有关限制 将 VBControlExtender 对象设置到动态添加的控件时，需要注意的是：内部控件不能够被赋值给变量。

---