CIMTranslations.AddTranslation (method)

Adds a CIMTranslation to the collection.
Syntax: Set object = object.AddTranslation ( TranslationString, LanguageName )
TranslationString As String -
LanguageName As String -
Description: Adds a CIMTranslation to this collection. If the translation for the specified language already exists, this will change the value of the existing translation to the TranslationString passed. The language is case insensitive so "JPN", is the same as "jpn". The language must already be added to the CIMLangMap or this will method will fail.


Sub AddTranslation_Example()
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oTranslationGroup As CIMLangMapper.CIMTranslationGroup
    Dim oTranslations As CIMLangMapper.CIMTranslations
    Dim oTranslation As CIMLangMapper.CIMTranslation
    Dim oLanguage As CIMLangMapper.CIMLanguage
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    oLangMap.Load "c:\trans.clm"
    Set oLanguage = oLangMap.AddLanguage("SPA", 1034)
    Set oTranslationGroup = oLangMap.LookupTranslationGroup("Hello")
    if Not oTranslationGroup Is Nothing Then
      Set oTranslations = oTranslationGroup.Translations
      Set oTranslation = oTranslations.AddTranslation("Hola", "SPA")
    End If
End Sub