Gets the CIMTranslationGroup that owns this object. | |
Syntax: | Set object = object.Parent |
Description: | Gets the CIMTranslationGroup that owns this
object. Example: Sub Parent_Example() Dim oLangMap As
CIMLangMapper.CIMLangMap Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup Dim oTranslations As
CIMLangMapper.CIMTranslations Dim oTranslation As
CIMLangMapper.CIMTranslation Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap") oLangMap.Load
"c:\trans.clm" Set oTranslationGroup =
oLangMap.LookupTranslationGroup("Hello") if Not oTranslationGroup Is Nothing
Then Set oTranslations =
oTranslationGroup.Translations Set oTranslationGroup =
oTranslations.Parent End If End Sub |