ISCollection.Count

Description

The number of the objects within the collection.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the diseases within the collection.

Dim aDiseases, aDisease
Dim aMessage
Dim i

Set aDiseases = Profile.LoadDiseaseCodes 'Collection of ISDisease

aMessage = "Diseases Count: "  & aDiseases.Count

for i = 0 to aDiseases.Count - 1 
  set aDisease = aDiseases.Item(i)
  aMessage = aMessage & vbNewLine &_
    aDisease.Description & " (" & aDisease.Code & ")"
next 

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0