CIMLangMap.AddTranslationGroup (method)

Adds a CIMTranslationGroup to the map with the given key value

Syntax:

Set object = object.AddTranslationGroup ( Key )

Parameters:

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.

Example:

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"
oLangMap.Save
End Sub