ISHriData.TypingType

Description

The typing type of the concept linked to the HRI template.

Syntax

object.TypingType

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

Restriction: This property is readonly.

Return Value

TSHriTypingType

Example

Display the number of the HRI templates within the collection and some information about them, including the types and the names of the linked concepts.

Dim aHRITemplates, aHRITemplate 
Dim aHRIData
Dim i
Dim aMessage
       
set aHRITemplates = Profile.GetHRITemplates

aMessage = "There are " & aHRITemplates.Count & " HRI Templates: "

for i = 0 to aHRITemplates.Count - 1 
  set aHRITemplate = aHRITemplates.Item(i)
  set aHRIData = aHRITemplate.HRI
 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    aHRIData.Concept.Name & vbTab   
   
  select case aHRIData.TypingType
    case 1 'tshtQuantity 
       aMessage = aMessage & " - Quantity"  
    case 2 'tshtRange  
       aMessage = aMessage & " - Range"   
    case 3 'tshtRatio   
       aMessage = aMessage & " - Ratio"   
    case 4 'tshtText    
       aMessage = aMessage & " - Text"
    case else   
       aMessage = aMessage & " - Unknown"
  end select
next 'i

Profile.MsgBox(aMessage)

Note: In Profile Client v8 on User Interface Typing Types cannot be found.

Version information

Added in v7.8.0