callbyname arbeitet mit Array-Element als procname

Question

Ich habe ein schreckliches Problem. Ich habe monströse Klassen mit vielen Eigenschaften aufgebaut, unter denen es auch Array-Eigenschaften gibt.

, wenn ich diese mit CallByName bezeichnen möchten, es wird nicht funktionieren, lassen Sie uns ein Beispiel sehen:

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 

Klasse: 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

Ihre GARG Mietgegenstands akzeptiert einen Index und eine Zeichenkette: Sie können stattdessen nicht ein ganzes Array übergeben

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