CIMTranslationGroup (object)

ICIMTranslationGroup Interface
Description: This object represents a group of CIMTranslation objects for a key value. All the CIMTranslation objects should have a value that is equivalent to the key in the language of the translation.


Sub TranslationGroup_Example()
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oTranslationGroup As CIMLangMapper.CIMTranslationGroup
    Dim oTranslation As CIMLangMapper.CIMTranslation
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    oLangMap.Load "c:\trans.clm"
    Set oTranslationGroup = oLangMap.LookupTranslationGroup("Wheel bearing")
    if Not oTranslationGroup Is Nothing Then
      For Each oTranslation In oTranslationGroup.Translations
        MsgBox oTranslation.Value
      Next oTranslation
    End If
End Sub
See Also: Key , Translations , CIMTranslations , CIMTranslation
Properties: CurrentTranslationValue , Key , Parent , Translations
Methods: AddTranslation