arrays – vb6数组,上限为-1

概述如果数组没有项目,某些函数(如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 Strings = 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 Longa = LongSplitEmulator()MsgBox UBound(a)

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

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

总结

以上是内存溢出为你收集整理的arrays – vb6数组,上限为-1全部内容，希望文章能够帮你解决arrays – vb6数组,上限为-1所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。