GetSafeArrayPointer: Unterschied zwischen den Versionen
Aus API-Wiki
K (vb) |
|||
| (Eine dazwischenliegende Version desselben Benutzers wird 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 | ||
| − | <vb>Private Declare Sub GetSafeArrayPointer Lib _ | + | <syntaxhighlight lang="vb">Private Declare Sub GetSafeArrayPointer Lib _ |
"msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long) | "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long) | ||
| Zeile 12: | Zeile 12: | ||
ReDim mArr(5) | ReDim mArr(5) | ||
Call GetSafeArrayPointer(mArr, pSafeArr) | Call GetSafeArrayPointer(mArr, pSafeArr) | ||
| − | MsgBox (pSafeArr <> 0)</ | + | MsgBox (pSafeArr <> 0)</syntaxhighlight> |
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)
