我想在我的表单上复制一个控件,
使用用户控件,该控件具有相同的名称并添加了“新”.
(Label1 —-> newLabel1)
使用用户控件,该控件具有相同的名称并添加了“新”.
(Label1 —-> newLabel1)
这是我的代码片段:
- Private Sub CreateLabel(ByRef lblControl As Control)
- 'lblControl - this is the control i would like to duplicate
- 'The reference to the new created control itself so i can work with it within this sub.
- Dim newControl As Control
- Set newControl = Form1.Controls.Add _
- ("Project.Project1","new" & lblControl.Name,lblControl.Container)
- newControl.Visible = True
- End Sub
如果我想要复制未编制索引的控件,它的效果很好
但是,我无法复制数组中的控件,因为lblControl.Name只是取其名称,而不是其索引,并用索引名称替换名称(lblControl.Name&“(”lblControl.Index& “)”真的不起作用..
此外,创建控件并在创建后更改其索引值不起作用.
所以我的问题是,如何使用上述方法创建数组?