ISIntCollection.Count

Description

The number of the integer values within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISIntCollection	The `object` always implements the ISIntCollection interface

Restriction: This property is readonly.

Return Value

int

Example

Fill in the collection with randomized integer values, display their count and indices within the collection.

Dim aItemCount
Dim aIntColl
Dim aValue
Dim aResultCount
Dim aUsedIndices
Dim aIndex
Dim aMessage

aItemCount = 70

Set aIntColl = Profile.CreateIntCollection

for i = 1 to aItemCount
  aValue = i * 10
  aIntColl.Add(aValue)
next

Randomize

aResultCount = 10
set aUsedIndices = Profile.CreateIntCollection
aMessage = aMessage & vbNewLine &_
  "Integer Values Count = " & " " & aIntColl.Count
do
  aIndex = Int(aItemCount * Rnd)
  aUsedIndices.AddSortedDistinct(aIndex) 
loop until aUsedIndices.Count = aResultCount   

for i = 0 to aUsedIndices.Count - 1
  aIndex = aUsedIndices.Item(i)
  aValue = aIntColl.Item(aIndex) 

  aMessage = aMessage & vbNewLine & "IntValue(" & aIndex & ") = " & aValue  
next 

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0