Question

vb如何实现控件序号变成变量比如 dim n％ private sub command1_click（） for

vb如何实现控件序号变成变量比如
dim n％
private sub command1_click（）
for i＝1 to 5
n＝n＋1
label&n&＝"欢迎"
next i
end sub

Answer 1

你说的应该是控件数组。

举个例子：比如：我们要在窗体上添加5个标签Label。

先添加一个Label1，然后复制粘贴，提示：已经有一个控件‘Label1’。创建一个控件数组吗？这里很关键，单击是！会发现控件变为Label1（0），Label1（1）。

同样方法，制作另外三个控件，也就是直接粘贴3次即可。

Private Sub Form_Click()
Dim i As Integer
For i = 0 To 4
Label1(i).Caption = i
Next
End Sub

现在就可以使用上面的语句把0到4赋值给这个控件数组了。

还有一种方法就是修改名称，把控件名称修改为同一个名称，系统自动创建控件数组。

如果控件数组不存在，会出现上面提示：已经有一个控件‘Label1’。创建一个控件数组吗？这里很关键，单击是！完成自动创建控件数组。