在 vb 6.0 中，我们如何知道动态数组是否已经初始化？ [复制]

Question

可能重复：
How do I determine if an array is initialized in VB6?
How do I check for an object being Nothing in VB6?

在函数返回动态数组作为结果的情况下，动态数组可能未初始化（例如，执行错误）。是否可以检查这种情况？

函数 IsNothing() 不起作用，并且 UBound() 在这种情况下会产生错误。

例如：

Function find(results() As String)

    [Definition here...]

End Function

[...]

Dim results() As String
find(results)
If UBound(results) > 0 Then '<-- This line will fail when results was not defined

[...]

提前致谢！

Answer 1

我遇到了同样的问题，但无法找到一个干净的方法来做到这一点。我最终创建了自己的函数来实现用错误处理程序包装的 Ubound。如果失败，我返回 -1。

Private Function custom_UBound(ByRef ToTest() As String)
    On Error GoTo errHandler

    custUBound = UBound(ToTest)

    Exit Function
errHandler:
    custUBound = -1
End Function