GetSafeArrayPointer: Unterschied zwischen den Versionen
Aus API-Wiki
K (vb) |
|||
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 _ |
− | " | + | "ms<syntaxhighlight lang="vb">vm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long) |
Dim mArr() As Long | Dim mArr() As Long | ||
Zeile 12: | Zeile 12: | ||
ReDim mArr(5) | ReDim mArr(5) | ||
Call GetSafeArrayPointer(mArr, pSafeArr) | Call GetSafeArrayPointer(mArr, pSafeArr) | ||
− | MsgBox (pSafeArr <> 0)</vb> | + | MsgBox (pSafeArr <> 0)</<syntaxhighlight lang="vb">> |
Version vom 5. November 2016, 23:10 Uhr
liefert einen Pointer zu einem Array , ist dieser 0 (Null), ist das Array (noch) nicht dimensioniert
<<syntaxhighlight lang="vb">>Private Declare Sub GetSafeArrayPointer Lib _
"ms<syntaxhighlight lang="vb">vm60.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)</<syntaxhighlight lang="vb">>