ISMentalEventTemplates.Count

Description

The number of the mental event templates.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISMentalEventTemplates	The `object` always implements the ISMentalEventTemplates interface

Restriction: This property is readonly.

Return Value

int

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