CIMTranslationGroups.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 translation group to the map with the given key value. If a translation group 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".

Example:

Sub AddTranslationGroup_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroups As
CIMLangMapper.CIMTranslationGroups

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

    Set oTranslationGroups =
oLangMap.TranslationGroups

    Set oTranslationGroup =
oTranslationGroups.AddTranslationGroup("Wheel bearing")

    Set oTranslationGroup =
oTranslationGroups.AddTranslationGroup("Bye")

    Set oTranslationGroup =
oTranslationGroups.AddTranslationGroup("Hello")

    Set oTranslationGroup =
oTranslationGroups.AddTranslationGroup("Paint Color")

End Sub