vbRichClient5的AarriayList对象参考

最新推荐文章于 2025-05-23 11:13:11 发布

weixin_30311605

最新推荐文章于 2025-05-23 11:13:11 发布

阅读量103

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Spacecup/p/3488599.html

本文详细介绍了ArrayList对象的使用方法，包括创建动态数组列表、作为队列或栈的应用方式，以及支持的排序功能。此外还提供了示例代码，展示了如何初始化、添加元素、排序等常见操作。

ArrayList对象

简介：创建数组列表对象，支持动态添加、移除，也可以当队列或者栈来用，支持排序

原型：Function ArrayList(vType As VbVarType, ParamArray P() As Variant) As cArrayList

简介：
什么是ArrayList？使用大小会根据需要动态增加的数组。

什么是队列？队列用来保持数据项目的先进先出(FIFO)顺序。

什么是栈？栈是一种特殊的表，这种表只在表头进行插入和删除操作。因此，表头对于栈来说具有特殊的意义，称为栈顶。相应地，表尾称为栈底。不含任何元素的栈称为空栈。保持项目的后进先出顺序

方法：
add
原型：Sub Add(V, [BeforeIndex As Long = -1])
说明：V 支持vb能支持的所有数据类型，可以把一个object或数组当成一个元素添加进去。
         BeforeIndex 已存在某个数据的index之前插入，此时add方法变成insert。

例子：
     Option Explicit
     Sub mytest()
     Dim arr1(1 To 10, 1 To 10), arr2, myarralist As New cArrayList, i&, j&, k&
     k = 0
     For i = 1 To 10
         For j = 1 To 10
         arr1(i, j) = k
         k = k + 1
       Next
     Next i
     myarralist.Init vbVariant
     myarralist.Add arr1
     For i = 1 To 100
     myarralist.Add i, 1   '这里用的是倒序插入。如果参数-1则是正序
     Next i
     Debug.Print myarralist.Count
     arr2 = myarralist.Item(0)
     Debug.Print arr2(9, 9)
     debug.print myarralist.item(100)
     set myarralist=Nothing
     End Sub

AddElements
原型：Function AddElements(SrcArray, [SrcElementsStartIndex], [SrcElementsToAdd], [AddBeforeDstIndex]) As Long

说明：

BindToArray
原型：Function BindToArray(Arr, [ArrayLBound As Long]) As Boolean
Clone
原型：Function Clone() As cArrayList
CopyToArray
原型：Function CopyToArray(Arr, [ArrayLBound As Long]) As Boolean
DeQueue
原型：Function DeQueue()
说明：从ArrayList对象中移除第一个元素，并返回该元素。
Init
原型：Sub Init(vType As VbVarType, ParamArray P() As Variant)
说明：初始化。任何时候使用AarrayList都必须先初始化。
MakeLCID
原型：Function MakeLCID(LangID As LangIDs, [SortID As SortIDs = SORT_DEFAULT]) As Long
Pop
原型：Function Pop()
Push
原型：Sub Push(V)

Queue
原型：Sub Queue(V)
ReleaseArrayBinding
原型：Sub ReleaseArrayBinding(Arr)
Remove
原型：Sub Remove(ZeroBasedIndex As Long)
RemoveAll
原型：Sub RemoveAll()
RemoveElements
原型：Function RemoveElements(FromZeroBasedIndex, ElementsToRemove As Long) As Long
Sort
原型：Sub Sort([Flags As CmpFlags], [lcid As LCIDs], [Comparer As IComparer])

属性
Content
原型：Property Content As Byte()
Count
Property Count As Long
ElementSize
原型： Property ElementSize As Long   只读
Item
原型：Property Item(ZeroBasedIndex As Long)
vType
原型：Property vType As VbVarType 只读

收藏分享邀请

转载于:https://www.cnblogs.com/Spacecup/p/3488599.html