CIMTranslationGroups.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 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".


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
See Also: CIMTranslationGroup , CIMLangMap.AddTranslationGroup