GetSafeArrayPointer

Aus API-Wiki
Zur Navigation springenZur Suche springen
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.

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)

Private Sub Command1_Click()
  Dim mArray() As Long
  Dim pSafeArray As Long
  
  Call GetSafeArrayPointer(mArray, pSafeArray)
  MsgBox (pSafeArray <> 0)
  
  ReDim mArray(5)
  Call GetSafeArrayPointer(mArray, pSafeArray)
  MsgBox (pSafeArray <> 0)
End Sub