GetSafeArrayPointer

Aus API-Wiki
Wechseln zu: Navigation, Suche

liefert einen Pointer zu einem Array , ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert

Private Declare Sub GetSafeArrayPointer Lib _
  "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long)

   Dim mArr() As Long
   Dim pSafeArr As Long
   
   Call GetSafeArrayPointer(mArr, pSafeArr)
   MsgBox (pSafeArr <> 0)
   
   ReDim mArr(5)
   Call GetSafeArrayPointer(mArr, pSafeArr)
   MsgBox (pSafeArr <> 0)