VB中如何判断数组为空数组

最新推荐文章于 2022-04-04 10:03:57 发布

原创最新推荐文章于 2022-04-04 10:03:57 发布 · 1.2w 阅读

CC 4.0 BY-SA版权

文章标签：

15 篇文章

订阅专栏

本文探讨了在Visual Basic中处理未初始化的动态数组时遇到的问题。当尝试访问空数组的上界时，会触发下标错误。文章讨论了几种可能的解决方案，包括错误处理和预定义数组大小的方法。

Technorati 标签: VB, 空数组

对于空数组，如果用ubound(arr)就会提示错误：下标错误。是否有办法在使用一个动态数组之前，先看看它是否初始化了呢？试了isempty, isnull, is nothing都不管用。

如果不想在使用之前ReDim arr(0)，那就只能用错误处理，在出错误的时候做处理并resume next。

暂时没有更好的办法。

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

关注关注

专栏目录

07-10

2 条评论

lauer0246 2009.01.12
方法二：CopyMemory方法 VB的数组都是安全数组，通过访问一个结构来确定　数组内容保存位置，上标下标和维数安全数组结构的地址可以用　 Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long 和 Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _ (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long) 获得安全数组的头两位就保存着维数信息 Option Explicit Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long) Private Sub Form_Load() Dim MyArr() As Long Dim pMyarr As Long Dim nDims As Integer '从数据指针得到SafeArray结构的指针 CopyMemory pMyarr, ByVal VarPtrArray(MyArr), 4 If pMyarr = 0 Then MsgBox "这个数组是空数组" Else '再从这个指针所指地址的头两个字节取出cDims CopyMemory nDims, ByVal pMyarr, 2 MsgBox "这个数组有" & nDims & "维" End If End Sub