ISMentalEventTemplates.Item

Description

Each of the mental event templates within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISMentalEventTemplates	The `object` always implements the ISMentalEventTemplates interface
`aIndex`	In, Required	int	The index of the mental event template

Restriction: This property is readonly.

Return Value

ISMentalEventTemplate

Example

Display the number of the mental event templates loaded on the basis of the selected filter, their names and types.

Dim aFilter
Dim MentalEventTemplate, MentalEventTemplates
Dim aMessage
Dim i
Dim aType

Set aFilter = Profile.CreateMentalEventTemplatesFilter
aFilter.Name = "Change location"
set aMentalEventTemplates = Profile.LoadMentalEventTemplates(aFilter)
aMessage = "Mental Event Templates Count = " & aMentalEventTemplates.Count

for i = 0 to aMentalEventTemplates.Count - 1
  set aMentalEventTemplate = aMentalEventTemplates.Item(i)
  set aType = Profile.LoadShortCode(aMentalEventTemplate.EventTypeId)
  aMessage = aMessage & vbNewLine &_
    "Name: " & aMentalEventTemplate.EventName & vbNewLine &_
    "Type: " & aType.Description
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Mental Event Templates can be found in Maintain > Events.

Version information

Added in v7.8.0