4

可能重复:
如何确定数组是否在 VB6 中初始化?

我最初声明一个数组为空:

Dim ArrayVar() as Variant


'May add some data, may not
if something then 
    Redim Preserve ArrayVar(ubound(ArrayVar,1)+1)
    ArrayVar(ubound(ArrayVar,1)) = "something"
end if


'Always check size of array
if ubound(ArrayVar,1) > x

问题是有时当我检查大小时,没有添加任何内容 - 数组为空,并且出现运行时错误。我确实尝试过声明数组,Dim ArrayVar(0) as Variant但随后 redim 语句无法编译。

最好的方法是什么?

4

1 回答 1

2

您可以使用 IsEmpty() 函数。

请尝试以下代码:

Dim ArrayVar() As Variant

Sub x()
If IsEmpty(arrvar) Then
    ReDim ArrayVar(0)
Else
    ReDim Preserve ArrayVar(UBound(ArrayVar, 1) + 1)
    ArrayVar(UBound(ArrayVar, 1)) = "something"
End If

MsgBox UBound(ArrayVar, 1)
End Sub
于 2012-09-10T16:12:42.423 回答