注册 登录
Office中国论坛/Access中国论坛 返回首页

ganlinlao的个人空间 http://www.office-cn.net/?230471 [收藏] [复制] [分享] [RSS]

日志

vbRichClient5的AarriayList对象参考

热度 1已有 2652 次阅读2013-10-21 23:44 |个人分类:vb入门| vbRichClient5, AarryList对象

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  只读

发表评论 评论 (1 个评论)

回复 admin 2013-10-22 09:08
Very good,我也一直朝vbRichClient5的方向 在努力,也向他学习学习

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-25 04:29 , Processed in 0.071392 second(s), 18 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部