vb里如何在同一窗体同时粘贴复制控件本身和其代码？如何简便控制多个控件？

vb里如何在同一窗体同时粘贴复制控件本身和其代码？如何简便控制多个控件？

你先把一个控件中的index属性改为0，再复制多个控件，其中的Index属性应该依次递增，此时你再双击其中一个控件，你就会发现自动生成的事件变为了Private Sub cmd1_Click(Index As Integer)，其中cmd1指的是这些空间的公共名称，之后你就可以通过下标访问控件啦！！

api轻松 什么api别问我 我不是来拿分的

动态加载控件.

直接弄数组控件就行了

控件数组
控件数组由一组相同类型的空间组成，这些控件共用一个相同的控件名字，具有相同的属性、事件和方法。数组中的每一个控件都有唯一的索引号Index 即下标，来标示它们。在属性窗口中，通过Index属性就可以设置相同类型的控件的下标。
数组中的每个元素则由Index 属性来指定。和数值数组一样，控件数组的下标也放在（）中，那这个按钮控件数组的3个按钮元素就分别用Cmd(0)、Cmd(1)、Cmd(2) 标示。
在程序中，当有若干个控件大致相同的操作时，控件数组是很有用的，控件数组共享同样的事件过程。假如，假定一个控件数组含有3个命令按钮Cmd1,则不管单击哪一个按钮，都会调用相同的Click事件，如果要确定单击的是哪一个按钮，则要通过其Index下标值来进行确认。
对于控件数组，参数Index是一个整数，它是响应其中某个空间操作的唯一标示。
建立控件数组
(1)通过复制的方法
即选择与建立的空间，拷贝其副本
(2)设置相同的名称属性
即把相同类型的控件其Name属性设置为相同。
代码实例：
在command1_Click()'事件中
dim i as integer
for i = 0 to 17 '这里循环 I 的值 就是你Text控件数组的"下标下界(0)" 到 "下标上界(17)"(共18个)
text1(i).text = "a" '在每个文本框控件中显示相同的内容
next i