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.

Example:

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

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. Example: `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