是这样子,原来我在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]]

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

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

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

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