请问；如何向用户控件内传递数组？

我在工程里添加了一个用户控件

在 Command1 里 这样写；

Private Sub Command1_Click()
 Dim a as long
 Dim B(1 to 20) as long
 Dim C as long

 C = 0
  For a = 1 to 20
  C = C + 1
  B(a) = C
  Next

  '现在要将 B 这个数组传给 用户控件 里，该如何实现？ 谢谢！！！ 
   
End Sub

该回复于2011-12-27 11:00:41被管理员删除

Veron_04 (贝隆) 等　级： 5 2 5

#2楼 得分：0回复于：2011-12-27 10:58:45 什么意思？用户控件？什么控件？TextBox？Label？还是？？

该回复于2011-12-27 10:59:26被管理员删除

liuyh7788 等　级：

#4楼 得分：0回复于：2011-12-27 16:50:41 是自己做的控件

一般情况下传 B(0) 就可以了！如下：（注意：控件端需为 BYREF）
VB code

Private Sub Form_Load()

    Dim arrCall(0 To 9) As String
    '...
    setParamsForArray arrCall(0)

End Sub

Private Sub setParamsForArray(ByRef arrList() As String)
    '...
End Sub

类里面有个公共的方法

类代码：

public function aFun(A（） as long,....) as long'public sub 也可以
'函数过程
dim n1 as long,n2 as long
n1=lboubd(a)
n2=uBound(a)

dim i as long
i=a(m)'m大于等于n1，小于等于n2
end function
调用：

Private Sub Command1_Click()
 Dim a as long
 Dim B(1 to 20) as long
 Dim C as long
dim cx as new yourclass

 C = 0
  For a = 1 to 20
  C = C + 1
  B(a) = C
  Next

  '现在要将 B 这个数组传给 用户控件 里，该如何实现？ 谢谢！！！  
  i=cx.aFun(B,.....)
End Sub