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，您始终可以实施错误检查。

编辑：我在测试时没有考虑就删除了过程调用周围的括号，它可能会影响答案。

Answer 2

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

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

查看 this文章。

Answer 3

当您调用 customObj.SetMatrixArray() 时，请尝试以下任一操作：

删除过程参数周围的括号：

customObj.SetMatrixArray theArray

-- 或 --

在调用前加上 Call：

Call customObj.SetMatrixArray(theArray)