vbaRefVarAry
返回存储在Variant数组中的SAFEARRAY描述符的指针。
语法：vbaRefVarAry( Variant ) As LongPtr
- Variant
- 必需 包含数组的Variant，按引用传递。
返回的地址是Variant内部SAFEARRAY字段的位置——即解引用后得到Variant包装的SAFEARRAY指针。在调用期望通过VARIANT*参数接收或填充SAFEARRAY*的Win32 API时非常有用。
如果Variant不包含数组，则结果未定义。
示例
本示例检索Variant数组内部的SAFEARRAY描述符的地址。
vb
Dim v As Variant
v = Array(10, 20, 30) ' Variant holding an array
Dim pSAPtr As LongPtr
pSAPtr = vbaRefVarAry(v) ' address of the SAFEARRAY* field in v
Dim pSA As LongPtr
GetMemPtr pSAPtr, pSA ' dereference: pSA is the SAFEARRAY pointer另请参阅
- VarPtr函数
- vbaAryMove过程