vb如何动态创建控件,并放在指定的容器中

假设你在窗体上添加一个PictureBox作为容器，添加一个按钮，代码如下：

Option Explicit

'定义控件对象

Private WithEvents Text1 As TextBox

Private Sub Command1_Click()

'动态添加控件

Set Text1 = Me.Controls.Add("VB.TextBox", "Text1", Picture1)

'设置该对象为可见

Text1.Visible = True

Text1.Top = 200

Text1.Left = 300

Text1.Text = "您好！"

End Sub

第一步，想要添加什么对象，就先通过NEW关键字，实例化一个对象，创建一个对象的实体。

第二部，设置当前对象实体的属性值，事件等。

第三部，通过容器对象的Controls（该属性为一个集合）属性的Add方法添加你当前创建的对象实体。

这样，你就看到你动态添加了一个控件。

比如button

button

btn=new

button()//初始化一个控件

btn.size=new

size(100,100)//设置大小

btn.location=new

postion(50,100)//设置坐标

btn.text="按钮1"//设置文本

this.controls.add(btn)//添加到窗体中

上面的大致就这样

---