callbyname работает с элементом массива as 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 свойство Пусть принимает индекс и строка: вы не можете пройти в целом массиве вместо

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