Gets the CIMTranslations collection that contains this translation. | |
Syntax: | Set object = object.Parent |
Description: | Gets the CIMTranslations collection that
contains this translation. Example: Sub Parent_Example() Dim oLangMap As
CIMLangMapper.CIMLangMap Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup Dim oTranslation As
CIMLangMapper.CIMTranslation Dim oTranslations As
CIMLangMapper.CIMTranslations Dim oTranslationsParentOf As
CIMLangMapper.CIMTranslations Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap") oLangMap.Load
"c:\trans.clm" Set oTranslationGroup =
oLangMap.LookupTranslationGroup("Wheel bearing") if Not oTranslationGroup Is Nothing
Then Set oTranslations =
oTranslationGroup.Translations For Each oTranslation In
oTranslations MsgBox
oTranslation.Value MsgBox
oTranslation.Language.Name Set
oTranslationsParentOf = oTranslation.Parent Next
oTranslation End If End Sub |