如果数组没有项目,某些函数(如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的回答中发现了这一点.
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。