Übergeben von Arrays als Parameter in VB6

Question

Der folgende Code tötet VB6 (SP6) mit einem 'unhandled Ausnahmefehler in VB.exe' auf zwei Computern im Büro auf der markierten Zeile.

''# Form1.frm 
Option Explicit 
Private ArrayHolder As Class2 

Private Sub Command1_Click() 
    Set ArrayHolder = New Class2 

    Dim arr(3) As Long 
    arr(0) = 1 
    arr(1) = 2 
    arr(2) = 3 

    ArrayHolder.Add arr 

End Sub 

''# -----------------------------------------------------------  
''# Class1.cls 
Option Explicit 

Private m_myArray() As Long 

Public Property Get myArray() As Long() 
    myArray = m_myArray 
End Property 

Friend Property Let myArray(ByRef anArray() As Long) 
    m_myArray = anArray 
End Property 

''# -----------------------------------------------------------  
''# Class2.cls 
Option Explicit 

Friend Function Add(newArray() As Long) As Class1 
    Dim oClass As Class1 
    Set oClass = New Class1 

    oClass.myArray = newArray <- This kills VB6 dead 
    MsgBox "passed" 

End Function 

Von dem, was ich auf verschiedenen Websites sagen kann ich ein Array richtig bin vorbei, aber ich bin es eigentlich richtig tun, und warum es verursacht VB6 so schrecklich zu sterben?

Answer 1

Ich habe keine Antwort, und sicherlich ist eine kuriose Frage, aber warum nicht einfach eine Methode hinzufügen und weitermachen?

'Passed the test 
Public Sub LetMyArray(anArray() As Long) 
    m_myArray = anArray 
End Sub 


'oClass.MyArray = newArray ' <- This kills VB6 dead 
oClass.LetMyArray newArray ' <- This works 

Answer 2

Ich habe keine Ahnung, warum dies geschieht, aber wenn man trotzdem eine Kopie eines Arrays wollen, eine Variante in class2 verwenden:

Private m_myArray As Variant 

Public Property Get myArray() As Variant 
    myArray = m_myArray 
End Property 

Friend Property Let myArray(anArray As Variant) 
    m_myArray = anArray 
End Property 

Fixes, aber immer noch, ich bin neugierig der Grund.

Answer 3

Dies ist ein Fehler in der IDE (kompiliert ist ok), die MS nie behoben hat. Ich verwende eine Abhilfe mit einem temporären Array wie folgt:

Friend Function Add(newArray() As Long) As Class1 
    Dim oClass As Class1 
    Dim tempArray() As Long 
    Set oClass = New Class1 

    tempArray = newArray 
    oClass.myArray = tempArray <- Should work now 
    MsgBox "passed" 

End Function 

FYI, wird es noch schlimmer mit Byte-Arrays (Long-Arrays ist sicher), wenn Sie versehentlich mit der Maus über das param oder die Array-Eigenschaft schweben. Halte deine Maus besser vom Code weg :-))