arrays – vb6数组,上限为-1

发布时间：2020-12-17 07:19:55 所属栏目：百科来源：网络整理

导读：如果数组没有项目,某些函数(如Split()将返回一个数组,其中上限为-1,下限为零,例如： Dim s() As Strings = Split("",",")Debug.Print UBound(s)Debug.Pring LBound(s) 在这种情况下,UBound将等于-1,LBound(s)将等于0.我有相当数量的代码检查上限的-1,以查看

如果数组没有项目,某些函数(如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的回答中发现了这一点.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!