GetSafeArrayPointer

Aus API-Wiki
Version vom 5. November 2016, 23:47 Uhr von Jochen Wierum (Diskussion | Beiträge)

(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
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)