Question

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

Answer 1

Technorati 标签: VB,空数组对于空数组，如果用ubound(arr)就会提示错误：下标错误。是否有办法在使用一个动态数组之前，先看看它是否初始化了呢？试了isempty, isnull, is nothing都不管用。如果不想在使用之前ReDim arr(0)，那就只能用错误处理，在出错误的时候做处理并resume next。暂时没有更好的办法。

Answer 2

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long

If SafeArrayGetDim(arr()) <= 0 Then MsgBox "数组为空数组"