Question

如何动态添加VB控件。比如在窗体中动态添加Picturebox控件。

就是假设，我已经有了一个picturebox的控件，但是程序发现还有一张图片要显示，于是就动态的多添加一个picturebox控件，用以显示新发现的图片。求详细一点的解释。最好能给个可运行的程序段

Answer 1

先在窗体设计过程中手工增加一个picture1，index属性设定为0
程序中要增加一个控件，就用：
Load Picture1(i) 'i为索引号，1-n 最好顺序递增
Picture1(i).Visible = True '这句非常重要，否则新增的图片框看不到
Picture1(i).Move x, y, w, h '设定图片框的坐标和大小

追问

我想要的不是你说的东东，我想要的是通过程序自动添加的。那么说吧，现在有一个空白窗体，在窗体启动的时候，程序自动的在上面添加一个picturebox的控件。不用手动添加。

追答

那你说：“假设，我已经有了一个picturebox的控...."
完全由程序新增可以这样
Set newPic = Controls.Add("VB.picturebox", "cmdNew", Form1)
newPic.Visible = True
newPic.index=0
.....'设定其它属性
newpic.Move 10, 10, 80, 80

追问

是这么个意思。
不过我是新人，刚学习这个程序，你给的只是程序的一部分。麻烦给个能复制进去就可以运行的程序，非常感谢。 就给个空白窗体，运行后，自动创建一个picturebox控件就行了。谢谢

追答

你把我的代码放进去就能看到生成一个新图片框了啊，是完整的，不过一些属性和位置大小你自己修改就行了！
把下面代码直接复制到form的load事件中看看

Set newPic = Controls.Add("VB.picturebox", "cmdNew", Form1)
newPic.Visible = True
newPic.index=0
newpic.Move 10, 10, 200, 200

追问

谢谢你。不过还是不行，画线的部分，全是错误。没法编译。