请教高手一控件数组问题

jonebob 发布于 2008-09-09 22:28， 1087 次点击

是这样子,原来我在VB6里有一组控件,16个cbopower1和一个16的数组工
以前是这样调用的,
dim i as integer
dim a(0 to 15) as integer
    For i = 0 To 15
        cbopower1(i).ListIndex = 0或者是这样a(i)=cbopower1(i).ListIndex
    Next i
因为在VB6是控件数组存在是这样子,cbopower1(index)
现在请问在中怎么实现.
谢谢!

[[it] 本帖最后由 jonebob 于 2008-9-9 22:38 编辑 [/it]]

3 回复

qlong07282008-09-15 13:02

DirectCast(Controls.Find("cbopower1" & i , True)(0), comboBox).ListIndex=0

jonebob2008-09-15 16:31

回复 2# qlong0728 的帖子

不愧为版主,看不懂，能解释一下吗，谢谢

[[it] 本帖最后由 jonebob 于 2008-9-15 19:49 编辑 [/it]]

qlong07282008-09-16 08:49

去查找窗体的控件,相符条件进行赋值.