vb6中如何判断数组为nothing

Question

我在用ubound(arr)的时候,提示错误信息,下标错误;调试时,显示arr 为nothing.
但是我用 if arr is nothing then 做判断时,又提示类型不匹配.真晕;
请问如何判断数组为nothing,或者判断数组没有redim.谢谢

Answer 1

写一个函数,用错误处理判断数组是不是NOTHING.

Answer 2

要么提前初始化：Dim arr() As IntegerPrivate Sub Form_Load()
    ReDim arr(0)
End SubPrivate Sub Form_Click()
    ReDim arr(Rnd * 10)
    
    Me.Caption = UBound(arr)
End Sub
要么就用错误处理～

Answer 3

可以這樣
if isempty(?) then
 msgbox *
end if

Answer 4

if isempty(arr) then
 msgbox "error"
end if

Answer 5

使用isEmpty(arr) 报错,提示信息如下:
只有在公共对象模块中定义的公共用户定义类型可以被使用为类模块公共过程的参数或返回类型、或作为公共用户定义类型的字段;
redim arr(0)倒是个办法.
错误判断方法有些小题大做.