callbyname使用数组元素作为procname

Question

我有一个可怕的问题。我构建了具有许多属性的可怕的类，其中也有数组属性。

如果我想用CALLBYNAME来引用它们，它不会起作用，让我们来看一个例子：

public sub whatsoever()

    Dim alfaarray() As Variant

    Dim g As Integer

    Dim obj As Object

    ReDim alfaarray(4)

    Set obj = New teszt

    For g = 0 To 4
    alfaarray(g) = "g" & CStr(g)
    Next g

    Call obj.init

    CallByName obj, "GARG", VbLet, alfaarray

end sub

类：teszt

Dim pgarg() As String

Property Let GARG(index As Long, value As String)
pgarg(index) = value
End Property

Property Get GARG(index As Long) As String
GARG = pgarg(index)
End Property

Public Sub init()
    ReDim pgarg(4)

End Sub

Answer 1

你的GARG属性Let接受一个索引和一个字符串:你不能传入一个完整的数组

Public Sub whatsoever()

    Dim g As Long
    Dim obj As Object

    Set obj = New teszt
    obj.init

    For g = 0 To 4
        CallByName obj, "GARG", VbLet, g, "g_" & CStr(g)
    Next g

    Debug.Print obj.GARG(0) '>> g_0
    Debug.Print obj.GARG(1) '>> g_1

End Sub