GetSafeArrayPointer: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
 
(4 dazwischenliegende Versionen von 3 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
liefert einen [[Pointer]] zu einem [[Array]] , ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert
+
liefert einen Pointer zu einem [[Array]] , ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert
  
 +
<syntaxhighlight lang="vb">Private Declare Sub GetSafeArrayPointer Lib _
 +
  "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long)
  
 
+
  Dim mArr() As Long
Private Declare Sub GetSafeArrayPointer _
+
  Dim pSafeArr As Long
Lib "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long)
 
 
 
 
 
Dim mArray() As Long
 
Dim pSafeArray As Long
 
 
    
 
    
Call GetSafeArrayPointer(mArray, pSafeArray)
+
  Call GetSafeArrayPointer(mArr, pSafeArr)
MsgBox (pSafeArray <> 0)
+
  MsgBox (pSafeArr <> 0)
 
    
 
    
ReDim mArray(5)
+
  ReDim mArr(5)
Call GetSafeArrayPointer(mArray, pSafeArray)
+
  Call GetSafeArrayPointer(mArr, pSafeArr)
MsgBox (pSafeArray <> 0)
+
  MsgBox (pSafeArr <> 0)</syntaxhighlight>

Aktuelle Version vom 5. November 2016, 22:47 Uhr

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)