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...)
 
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]
+
 
 
Option Explicit
 
Option Explicit
  
Zeile 19: Zeile 19:
 
   MsgBox (pSafeArray <> 0)
 
   MsgBox (pSafeArray <> 0)
 
End Sub
 
End Sub
[/code]
 

Version vom 7. März 2008, 10:25 Uhr

liefert einen Pointer zu einem Array, ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert


Option Explicit

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