VB6中数组类型arrays的上限值为何设为-1？

本文共计355个文字，预计阅读时间需要2分钟。

如果数组没有项目，某些函数（如Split函数）将返回一个数组，其中上限为-1，下限为0。例如：Dim s() As String=Split(, ,) Debug.Print UBound(s) Debug.Print LBound(s) 在这种情况下，UBound将等于-1，LBound将等于0。

如果数组没有项目,某些函数(如Split()将返回一个数组,其中上限为-1,下限为零,例如：

Dim s() As String s = Split("", ",") Debug.Print UBound(s) Debug.Pring LBound(s)

在这种情况下,UBound将等于-1,LBound(s)将等于0.我有相当数量的代码检查上限的-1,以查看数组是否有值.这非常有效.

问题是我现在想要将数组数据类型从字符串更改为long.我似乎无法创建一个上限为-1且下限为0的long数组,而Split()和Join()函数仅对字符串数组进行操作.

我希望能够返回一个上限为-1的长数组.这可能吗？

我不认为你可以在VB6中自己做.但是,如果您愿意使用Windows API函数 SafeArrayCreateVector,则可以执行以下操作：

Private Declare Function LongSplitEmulator Lib "OLEAUT32.DLL" Alias "SafeArrayCreateVector" _ (Optional ByVal vt As VbVarType = vbLong, _ Optional ByVal low As Long = 0, _ Optional ByVal count As Long = 0) As Long() Dim a() As Long a = LongSplitEmulator() MsgBox UBound(a)

如果需要对其他数据类型执行此操作,则可以更改vt参数.

请注意,我想我最初从Vi2对这个discussion的回答中发现了这一点.