GetSafeArrayPointer: Unterschied zwischen den Versionen
Aus API-Wiki
Pks (Diskussion | Beiträge) |
|||
| (6 dazwischenliegende Versionen von 3 Benutzern werden 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 |
| + | <syntaxhighlight lang="vb">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)</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)
