如何在函数中传递控件数组

Question

把你的数组控件传递到一个普通数组中
比如
dim activeX() as Textbox
for  i=0 to me.textboxTest.count-1
   redim preserve activeX(i)
   set activeX(i)=me.textboxTest(i)
next i
sub transActiveX( activeX() as Textbox)
...
end sub

Answer 1

可以把参数设为Object类型。如下面
Function LoadControl(txt As Object)
            For j = 2 To 4
                Load txt(j - 1)
                tForm.txt(j - 1).Visible = True
            Next i
End fUNCTION调用：
call LoadControl(Text1)Text1为控件数组

Answer 2

sub SeeCon(byval oLbl as object)
    for n=0 to oLbl.count-1
        msgbox oLbl.item(n).Caption
    next
end sub

Answer 3

同意楼上的，
  你可以传递一个控件数组的控件
 如：
   text1(i)
   直接传递TEXT1

Answer 4

控件数组只能定义为Object
这与VB6对控件的管理不完善有关