|
Public Function StringVectorToVariantVector( _
ByRef rTo() As Variant _
, ByRef vFm() As String _
) As Boolean Assuming
Static astrNames(0 To 2) As String
astrNames(1) = "Car"
Dim avarNames() As Variant
for example
StringVectorToVariantVector(avarNames(), astrNames()) = True
leaves
LBound(avarNames) = 0
UBound(avarNames) = 2
avarNames(0) = ""
avarNames(1) = "Car"
avarNames(2) = ""See also: VariantVectorToStringVector Function (inverse)
StringMatrixToVariantMatrix FunctionrTo: Dynamic array of Variants that will be dimensioned with one dimension before it receives copy of each of the elements in vFm. Copyright © 1999-2005 Entisoft