如何判断数组是几维的？

tutuaction 2003-01-24 05:12:43

如何判断数组是几维的？

...全文

437 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

tutuaction 2003-01-24

打赏
举报

高手

andy_lv 2003-01-24

打赏
举报

呵
忘了。。还API
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

andy_lv 2003-01-24

打赏
举报

呵呵！
Function Dimension(ByRef Variable As Variant) As Integer
Dim Ptr As Long
If IsArray(Variable) Then
Ptr = VarPtr(Variable) + 8 'VB-Array
CopyMemory Ptr, ByVal Ptr, 4 'SafeArrayDescriptor
CopyMemory Ptr, ByVal Ptr, 4 'SafeArray-Struktur
If Ptr Then CopyMemory Dimension, ByVal Ptr, 2
Else
Err.Raise 13 'Type mismatch
End If
End Function