GetSafeArrayPointer: Unterschied zwischen den Versionen
Aus API-Wiki
Pks (Diskussion | Beiträge) |
Pks (Diskussion | Beiträge) |
||
| Zeile 1: | Zeile 1: | ||
| − | liefert einen | + | liefert einen Pointer zu einem [[Array]] , ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert |
| Zeile 7: | Zeile 7: | ||
| − | Dim | + | Dim mArr() As Long |
| − | Dim | + | Dim pSafeArr As Long |
| − | Call GetSafeArrayPointer( | + | Call GetSafeArrayPointer(mArr, pSafeArr) |
MsgBox (pSafeArray <> 0) | MsgBox (pSafeArray <> 0) | ||
| − | ReDim | + | ReDim mArr(5) |
| − | Call GetSafeArrayPointer( | + | Call GetSafeArrayPointer(mArr, pSafeArr) |
| − | MsgBox ( | + | MsgBox (pSafeArr <> 0) |
Version vom 7. März 2008, 11:36 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 (pSafeArray <> 0) ReDim mArr(5) Call GetSafeArrayPointer(mArr, pSafeArr) MsgBox (pSafeArr <> 0)
