GetSafeArrayPointer: Unterschied zwischen den Versionen
Aus API-Wiki
Pks (Diskussion | Beiträge) |
Pks (Diskussion | Beiträge) |
||
Zeile 3: | Zeile 3: | ||
− | + | 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) |
Version vom 7. März 2008, 10:41 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)