vba - 如何将对象插入作为用户修改类的字段的数组中？ VBA

Question

我有一个包含一对数组的类。

当我尝试向该数组插入一个新对时，我收到一条错误消息。

为什么会出现该错误，我该如何解决？

'####  The class instance:  ####
dim pairsHolder as new ClassArrayOfPairs
pairsHolder.init(5)

'####  The pair instance:  ####
dim pair as new ClassPairs
pair.setLeft(4) ...      pair.setRight(7)  ....

'####  Trying to insert pair to array:  ####
Call pairsHolder.insertPairAt (0,pair)

最后一条语句引发错误:

RunTime error 438: Object doesn't support this property or method

这是类(class):

'@@@@@  CLASS ArrayOfPairs  @@@@@
'--------------------------------
Private pairArr() As ClassPairs
Private maxPairs As Integer

'##### Initialize Parameters #####
Public Sub init(howManyPairs As Integer)
    maxPairs = howManyPairs
    ReDim pairArr(maxPairs - 1) As ClassPairs
End Sub


'##### INSERT pair #####
Public Sub insertPairAt(index as Integer, pair As ClassPairs)
        pairArr(index) = pair
End Sub

澄清一下， ClassPairs只是一个带有 Left 的对象和 Right场变量。

Answer 1

我只需添加 Set 即可解决您的问题之前 pairArr(index) = pair像这样:

'##### INSERT pair #####
Public Sub insertPairAt(index as Integer, pair As ClassPairs)
    Set pairArr(index) = pair
End Sub

您正在设置 pairArr(index) = pair . pair和 pairArr(index)是对象。因此，您需要为 pairArr(index) 分配一个对象引用。因为它是 pair和 Set用于分配对象引用， msdn reference .