CIMTranslations (object)

ICIMTranslations Interface
Description: This object is a collection of CIMTranslation objects. There may be some translations within this collection that are Nothing. The index of the translation corresponds to the index of the CIMLanguage in the CIMLanguages collection that the particular translation is for. If there is no tranlation for that CIMLanguage the object retrieved will be "Nothing". Using the For Each iteration technique skips over objects that are "Nothing." So the number of object retrieved may be less than the value of Count.


Sub Translations_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: CIMTranslation , CIMTranslationGroup.Translations
Properties: Count , Item , Parent
Methods: AddTranslation , RemoveTranslation