ISIntStrings.Data

Description

Each of the integer string values.

Syntax

object.Data(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISIntStrings	The `object` always implements the ISIntStrings interface
`aIndex`	In, Required	int	The index of the pair 'int - string'

Return Value

int

Example

Display the string list and its text and integer presentation.

sub main
  Dim aHost
  Dim aLayout
  Dim aList
  Dim aText

  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)
  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

Note:

Version information

Added in v7.8.0