Sets the array of the "ReturnArray" object.

Syntax:

 
SetArray(NewArray As Variant)
Parameters: NewArray "NewArray" parameter with the data that the "ReturnArray" object should have.
Example: 
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_BeforeFillTextTableView(Project As TranslationProject, 
ProjectFile As ProjectFile, TransUnitNodeNumberArray As ReturnArray, 
Done As ReturnBoolean)

Dim TUNodeNoArray() As Variant
Dim TU As TransUnit
Dim i As Integer
    
Call TransUnitNodeNumberArray.GetArray(TUNodeNoArray)
    
' fill source text array
For i = 0 To UBound(TUNodeNoArray)
    Set TU = ProjectFile.GetTransUnit(TUNodeNoArray(i))
    If (Not (TU.Target = "")) Then
        TUNodeNoArray(i) = -1
    End If
Next i
    
Call TransUnitNodeNumberArray.SetArray(TUNodeNoArray)
    
Done.Value = True
End Sub
Remarks: The "NewArray" parameter cannot be the same size as the array to be returned with the "GetArray" method. It must be of the type "Variant." The elements of the "NewArray" parameter must also be of the type "Variant."

See also:

Class ReturnArray

Last Updated: 04/27/05