GetSafeArrayPointer
Aus API-Wiki
Version vom 7. März 2008, 10:24 Uhr von Pks (Diskussion | Beiträge) (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...)
liefert einen Pointer zu einem Array, ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert
[code] 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 [/code]