Public Function CopyVariantVectorDirect( _ ByRef rTo() As Variant _ , ByRef vFm() As Variant _ ) As Boolean
rTo vFm +----+ +----+ | 12 | <---- | 12 | +----+ OR +----+ | WV | +-- | WV | <-+ +----+ | +----+ | | | +------------+Example:
Assuming Static avarIn(0 To 45) As Variant avarIn(1) = "Smith" Dim avarOut() As Variant for example CopyVariantVectorDirect(avarOut(), avarIn()) = TrueSee also:
CopyVariantVector Function (indirect-copy version) CopyVariantArrayDirect Function (more flexible version) CopyVariantMatrixDirect Function (for two-dimensional arrays) CopyVariantCubeDirect Function (for three-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 one-dimensional and have the same upper and lower bounds as vFm.
Return to ENTISOFT Home Page
Copyright © 1999-2005 Entisoft