ISCaseTypes.Count

Description

The number of the case types.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the case types loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aCaseTypes, aCaseType
Dim aMessage
Dim i 

Set aFilter = Profile.CreateCaseTypesFilter
aFilter.Description = "Case Type 1" 
set aCaseTypes = Profile.LoadCaseTypes(aFilter)

aMessage = "Case Types Count = " & aCaseTypes.Count
for i = 0 to aCaseTypes.Count - 1
  set aCaseType = aCaseTypes.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Title: " & aCaseType.Title & vbNewLine &_
    "Code: " & aCaseType.Code & vbNewLine &_
    "Description: " & aCaseType.Description& vbNewLine &_
    "Title Enabled: " & aCaseType.TitleEnabled & vbNewLine &_
    "Color Enabled: " & aCaseType.ColorEnabled & vbNewLine &_
    "Color: " & HEX(aCaseType.Color) & vbNewLine
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Types can be found in Maintain > Templates > Case Type.

Version information

Added in v7.8.0