Question

VB中如何动态添加多个picturebox控件

form1里面有button，panel，希望通过点击button，panel里面自动添加一个picturebox1,再次点击一次，panel里再增加个picturebox2，有源代码更好，不一定要picturebox控件，其他控件也行，只要功能相同的，，，

Answer 1

'Dim WithEvents NewText As TextBox
Private Sub Command1_Click()
For i = 1 To 4
sname = "Txt" & i
Set NewText = Controls.Add("VB.TextBox", sname)
NewText.Move 2000, 500 * i, 1000, 360
Controls(sname).Text = "文本框" & i
NewText.Visible = True
Next i
End Sub

Private Sub Command2_Click()
For i = 1 To 4
sname = "Cmdnew" & i
Set NewButton = Controls.Add("VB.CommandButton", sname)
NewButton.Move 500, 500 * i, 1000, 360
Controls(sname).Caption = "按钮" & i
NewButton.Visible = True
Next i
End Sub

Private Sub Command3_Click()
For i = 1 To 4
BqName = "Lbl" & i
Set Newlbl = Controls.Add("VB.Label", BqName)
Newlbl.Move 3500, 500 * i, 1000, 360
Controls(BqName).Caption = "标签" & i
Newlbl.Visible = True
Next i
End

'Set Newlbl = Controls.Add("VB.Label", BqName)中，Label可替换成工具箱中任意控件类名
更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/c1a68eec0fabdb2b63d09f5b.html#

Answer 2

肯定是图片格式不正确导致的，如果你一定要这个图片，那也不难，你直接把图片格式转换一些就可以了。01.你可以选择用photoshop生成bmp图片或者其他，
02.其实最简单的还是直接用acdsee来进行格式转换，方法:用acdsee打开图片--工具--格式转换---选择一个格式就行了。如图：

Answer 3

先增加一个picturebox，将index属性设置为0，然后load就可以了，在修改他的位置

Answer 4

load(picture1(i)
setparent

Answer 5

用数组