ISIntCollection.Add

Description

This function adds the integer value to the collection.

Syntax

object.Add Value

Part	Attribute	Type	Description
`object`	Required	ISIntCollection	The `object` always implements the ISIntCollection interface
`Value`	In, Required	int	The integer value

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

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