获得VB数组的维数

发布时间：2020-12-16 23:31:53 所属栏目：大数据来源：网络整理

导读：在VB中如何获得数组维数，本来是一个简单的问题，但还是有朋友不断问起，为了省事，于是把有关代码片断贴了出来，具体实现过程如下： Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any,_ Source As

在VB中如何获得数组维数，本来是一个简单的问题，但还是有朋友不断问起，为了省事，于是把有关代码片断贴了出来，具体实现过程如下：

Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any,_ Source As Any,ByVal Length As Long) Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long Public Function GetArrayDims(pvArray() As Variant) As Long '获得数组维数 Dim pArray As Long,ppArray As Long,nDims As Long ppArray = VarPtrArray(pvArray) CopyMemory pArray,ByVal ppArray,4 CopyMemory nDims,ByVal pArray,2 GetArrayDims = nDims End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!