The number of the objects within the collection.
object.Count
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISList interface |
int
Fill in the list with the user-selected patients and display the number of patients in the list and their full names.
Dim aList
Dim aPatient
Dim aMessage
Dim i
Set aList = Profile.CreateList
const aPatientCount = 2
for i = 1 to aPatientCount
set aPatient = Profile.SelectPatient
aList.Add(aPatient)
next
aMessage = "The number of patients in the list is " & aList.Count
for i = 0 to aList.Count - 1
set aPatient = aList.Item(i)
aMessage = aMessage & vbNewLine & " - " & aPatient.SurnameFirstName
next
Profile.MsgBox(aMessage)