Each of the string values within the list.
object.Item(aIndex)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISIntStrings interface |
|
aIndex |
In, Required | int |
The index of the pair 'int - string' |
string
Display the string list and its text presentation.
sub main
Dim aHost
Dim aLayout
Dim aList
Set aHost = Profile.CreateCDOFormHost
aLayout = 0
set aList = aHost.GetAccessionPatientTemplateList(0, aLayout)
aList.Add "Default form", -1
ShowList aList, "Patient prefs"
end sub
sub ShowList(aList, aCaption)
Dim aText
Dim i
aText = aCaption & ":" & vbCrLf
for i = 0 to aList.Count - 1
aText = aText & aList.Item(i) & "(" & aList.Data(i) & ")" & vbCrLf
next
Profile.MessageBox aText
end sub