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

显示全部楼层 · 2011-3-5 06:33:14

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

千问 · 2011-3-5 06:33:14

<pre id=\"best-answer-content\" class=\"reply-text mb10\">\'Dim WithEvents NewText As TextBox
Private Sub Command1_Click()
For i = 1 To 4
sname = \"Txt\" defds123 i
Set NewText = Controls.Add(\"VB.TextBox\", sname)
NewText.Move 2000, 500 * i, 1000, 360
Controls(sname).Text = \"文本框\" defds123 i
NewText.Visible = True
Next i
End Sub

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

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

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