Public Function CopyVariantCubeDirect( _ ByRef rTo() As Variant _ , ByRef vFm() As Variant _ ) As Boolean
Assuming Static avarIn(0 To 45, 0 To 12, 0 To 3) As Variant avarIn(1, 1, 1) = "Smith" Dim avarOut() As Variant for example CopyVariantCubeDirect(avarOut(), avarIn()) = TrueSee also:
CopyVariantCube Function (indirect-copy version) CopyVariantArrayDirect Function (more flexible version) CopyVariantMatrixDirect Function (for two-dimensional arrays) CopyVariantVectorDirect Function (for one-dimensional arrays)rTo: Destination array that will receive a copy of array vFm. This function will attempt to re-dimension rTo so that it has the same dimensions as vFm. It will ignore errors during that re-dimension so that rTo can be a Static array. If rTo is Static, it must be three-dimensional and have the same upper and lower bounds as vFm.
Return to ENTISOFT Home Page
Copyright © 1999-2005 Entisoft