How do I determine if an array is initialized in VB6?

by

Note: the code has been updated, the original version can be found in the revision history (not that it is useful to find it). The updated code does not depend on the undocumented GetMem4 function and correctly handles arrays of all types.

Note for VBA users: This code is for VB6 which never got an x64 update. If you intend to use this code for VBA, see https://stackoverflow.com/a/32539884/11683 for the VBA version. You will only need to take the CopyMemory declaration and the pArrPtr function, leaving the rest.

I use this:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(ByRef Destination As Any, ByRef Source As Any, ByVal length As Long)

Private Const VT_BYREF As Long = &H4000&

' When declared in this way, the passed array is wrapped in a Variant/ByRef. It is not copied.
' Returns *SAFEARRAY, not **SAFEARRAY
Public Function pArrPtr(ByRef arr As Variant) As Long
  'VarType lies to you, hiding important differences. Manual VarType here.
  Dim vt As Integer
  CopyMemory ByVal VarPtr(vt), ByVal VarPtr(arr), Len(vt)

  If (vt And vbArray) <> vbArray Then
    Err.Raise 5, , "Variant must contain an array"
  End If

  'see https://msdn.microsoft.com/en-us/library/windows/desktop/ms221627%28v=vs.85%29.aspx
  If (vt And VT_BYREF) = VT_BYREF Then
    'By-ref variant array. Contains **pparray at offset 8
    CopyMemory ByVal VarPtr(pArrPtr), ByVal VarPtr(arr) + 8, Len(pArrPtr)  'pArrPtr = arr->pparray;
    CopyMemory ByVal VarPtr(pArrPtr), ByVal pArrPtr, Len(pArrPtr)          'pArrPtr = *pArrPtr;
  Else
    'Non-by-ref variant array. Contains *parray at offset 8
    CopyMemory ByVal VarPtr(pArrPtr), ByVal VarPtr(arr) + 8, Len(pArrPtr)  'pArrPtr = arr->parray;
  End If
End Function

Public Function ArrayExists(ByRef arr As Variant) As Boolean
  ArrayExists = pArrPtr(arr) <> 0
End Function

Usage:

? ArrayExists(someArray)

Your code seems to do the same (testing for SAFEARRAY** being NULL), but in a way which I would consider a compiler bug 🙂

More Related Contents:

  1. VBA array sort function?
  2. ReDim Preserve to a multi-dimensional array in VB6
  3. How do I Merge two Arrays in VBA?
  4. ReDim Preserve “Subscript Out of Range”
  5. How to turn off array range check [closed]
  6. Loop through an array of strings in Bash?
  7. Searching array reports “not found” even though it’s found
  8. Using numpy `as_strided` function to create patches, tiles, rolling or sliding windows of arbitrary dimension
  9. How do I set up a “jagged array” in VBA?
  10. Matching values in string array
  11. Accessing a JSON object in Bash – associative array / list / another model
  12. How to find a duplicate element in an array of shuffled consecutive integers?
  13. Finding neighbours in a two-dimensional array
  14. Convert command line arguments into an array in Bash
  15. Writing an array to a range. Only getting first value of array
  16. Spark 2.0.x dump a csv file from a dataframe containing one array of type string
  17. MongoDB – Query on the last element of an array?
  18. Does go garbage collect parts of slices?
  19. If char*s are read only, why can I overwrite them?
  20. Compare values of two arrays – classic asp
  21. Difference between “character*10 :: a” and “character :: a(10)”
  22. How to add hashtable to multidimensional array? Cannot assign values via member-access enumeration
  23. Perl array vs list
  24. Is there a way to not have to initialize arrays twice?
  25. If value is true in Column A, set Column C one higher
  26. Access Array column in Spark
  27. convert string to number array in matlab
  28. How can I store function pointers in an array? [duplicate]
  29. Is there any way to allocate a standard Rust array directly on the heap, skipping the stack entirely?
  30. Swift: Binary search for standard array?

Leave a Comment