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

<<syntaxhighlight lang="vb">>Private Declare Sub GetSafeArrayPointer Lib _

 "ms<syntaxhighlight lang="vb">vm60.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)</<syntaxhighlight lang="vb">>