This function clears the list.
object.Clear
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISList interface |
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
aList.Clear
aMessage = aMessage & vbNewLine &_
"The number of patients in the list after the crearing = " & " " & aList.Count
Profile.MsgBox(aMessage)