GetSafeArrayPointer: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
(Die Seite wurde neu angelegt: liefert einen Pointer zu einem Array, ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert [code] Option Explicit Private Declare Sub GetSafeArrayPointer...)
 
 
(9 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
  
[code]
+
<syntaxhighlight lang="vb">Private Declare Sub GetSafeArrayPointer Lib _
Option Explicit
+
  "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long)
  
Private Declare Sub GetSafeArrayPointer Lib "msvbvm60.dll" Alias "GetMem4" _
+
   Dim mArr() As Long
                    (pArray() As Any, sfaPtr As Long)
+
   Dim pSafeArr As Long
 
 
Private Sub Command1_Click()
 
 
 
   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>
End Sub
 
[/code]
 

Aktuelle Version vom 5. November 2016, 23: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)