吧务
level 12
这个写法以前见过，感觉挺bug的
理论上来说，VB是不支持指针直接运算的，需要用隐藏函数（如VarPtr）才能取指针并进行运算；但是这里却可以对数组名这个指针进行Not运算……未初始化的指针值为0，取反之后就是-1
2020年03月05日 02点03分
level 15
2
我是从国外的论坛借鉴过来的。
2020年03月05日 03点03分
@sunruisunrui 这个方法的确比SafeArrayGetDim和varptr后Copymemory要高效
2020年03月05日 10点03分
level 13
level 13
刚刚测试了下，用not数组名来判断数组为空，遇到bug了。只要not 数组名后，对single类型变量赋值，再debug.print 输出就会出现表达式太复杂了，但是编译就没问题了
有意思
2020年03月07日 02点03分
不只是single。但是我开始是没有问题的。是不是数组没初始化的时候，没有数据类型，取反后给了错误的指针。
2025年04月23日 07点04分
level 1
'------------------------------------------------------------
'函数名：IsInitArr
'类型：Boolean
'参数：
' Arr-必选参数，Variant，任意数组
Public Function IsInitArr(Arr As Variant) As Boolean
'返回数组 Arr 是否已经初始化，若是则返回 True，否则返回 False
If IsArray(Arr) Then
On Error Resume Next
'--------------------------------------------------
'IsInitArr = UBound(Arr)
'这是为了排除 Array() 这种特殊情况
'其范围被认为是 0 To -1，但仍然是越界的
IsInitArr = UBound(Arr) >= LBound(Arr)
'--------------------------------------------------
If Err.Number = 9 Then IsInitArr = False
Else
Throw 5, "参数 Arr 必须是数组类型而不能是 " & TypeName(Arr) & " 类型"
End If
End Function
'------------------------------------------------------------
2026年02月13日 08点02分
6
'函数名：IsInitArr
'类型：Boolean
'参数：
' Arr-必选参数，Variant，任意数组
Public Function IsInitArr(Arr As Variant) As Boolean
'返回数组 Arr 是否已经初始化，若是则返回 True，否则返回 False
If IsArray(Arr) Then
On Error Resume Next
'--------------------------------------------------
'IsInitArr = UBound(Arr)
'这是为了排除 Array() 这种特殊情况
'其范围被认为是 0 To -1，但仍然是越界的
IsInitArr = UBound(Arr) >= LBound(Arr)
'--------------------------------------------------
If Err.Number = 9 Then IsInitArr = False
Else
Throw 5, "参数 Arr 必须是数组类型而不能是 " & TypeName(Arr) & " 类型"
End If
End Function
'------------------------------------------------------------