example: |
Dim il
Set il = CreateItemList()
if IsObject(il) Then
MsgBox "CreateItemList is ok."
else
MsgBox "CreateItemList is fail!" & GetLastErrorMessage()
End If
il.Add(CatalogDB.CatalogRoot)
il.Add(CatalogDB.SearchGroup)
MsgBox "ItemList Add is ok."
Dim RootByIndex, RootByName
Set RootByIndex = il(0)
Set RootByName = il("Lib")
MsgBox "ItemList Get is ok."
MsgBox "ItemList Count is " & il.Count
il.Remove(CatalogDB.CatalogRoot)
il.Add(CatalogDB.CatalogRoot)
il.Remove("Lib")
il.Add(CatalogDB.CatalogRoot)
il.Remove(0)
MsgBox "ItemList Remove is ok." |