Visual Basic 6数组作为参数

Question

这可能听起来像一个愚蠢的问题，但我即将拉出来。

我有一个Sub，我想解析一个数组并将其分配给类模块“对象”。

我该怎么做呢

我所做的不起作用是：

Private matrix(9,9) As Integer
'The Setter Sub
Public Sub SetMatrixArray(arrValToSet() as Integer)
    matrix = arrValToSet
End Sub


'In the caller module / class module I have the following code to parse the array.

Dim theArray(9,9) As Integer
Dim customObj as CustomObject
customObj.SetMatrixArray(theArray)

我收到以下错误消息：

类型不匹配：预期的数组或用户定义类型。

Answer 1

这有效：

 'In the caller module / class module I have the following code to parse the array.'
    Dim theArray(9,9) As Integer 
    Dim customObj as CustomObject 
    customObj.SetMatrixArray theArray

'班级'

Private matrix() As Integer 
       'The Setter Sub '
       Public Sub SetMatrixArray(arrValToSet() as Integer)
       matrix = arrValToSet
    End Sub 

因此，删除类中矩阵数组的尺寸。 如果维度必须精确为9，则始终可以实施错误检查。

编辑：我在测试过程中不假思索地移除了程序周围的parens，它可能会影响答案。

Answer 2

我认为你需要将数组作为多维数组的变体传递

Public Sub SetMatrixArray(arrValToSet as Variant)
    matrix = arrValToSet
End Sub

看看这篇文章。

Answer 3

当你调用customObj.SetMatrixArray()尝试：

删除过程参数周围的parens：

customObj.SetMatrixArray theArray

- 要么 -

通过Call接听您的Call ：

Call customObj.SetMatrixArray(theArray)