GetSafeArrayPointer

Aus API-Wiki
Zur Navigation springenZur Suche springen

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 (pSafeArray <> 0)
  
ReDim mArr(5)
Call GetSafeArrayPointer(mArr, pSafeArr)
MsgBox (pSafeArr <> 0)