CIMLangMap.AddTranslationGroup (method)

Adds a CIMTranslationGroup to the map with the given key value
Syntax: Set object = object.AddTranslationGroup ( Key )
Key As String -
Description: Adds a CIMTranslationGroup to the map with the given key value. If a CIMTranslationGroup with the given key already exists, that group will be returned. The key compare is case sensitive so "Hello" will add a different Translation group than "HELLO". This method is a shortcut to the CIMTranslationGroups.AddTranslationGroup method. It does the same thing as calling CIMLangMap.TranslationGroups.AddTranslationGroup.


Sub AddTranslationGroup_Example()
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oLang As CIMLangMapper.CIMLanguage
    Dim oTranslationGroup As CIMLangMapper.CIMTranslationGroup
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    Set oLang = oLangMap.AddLanguage("JPN", 1041)
    Set oTranslationGroup = oLangMap.AddTranslationGroup("Wheel bearing")
    Set oTranslationGroup = oLangMap.AddTranslationGroup("Bye")
    Set oTranslationGroup = oLangMap.AddTranslationGroup("Hello")
    Set oTranslationGroup = oLangMap.AddTranslationGroup("Paint Color")
    oLangMap.FileName ="c:\trans.clm"
End Sub
See Also: CIMTranslationGroup , CIMTranslationGroups.AddTranslationGroup