CIMLangMap.LookupTranslationGroup (method)

Finds the CIMTranslationGroup object with the given key value.

Syntax:

Set object = object.LookupTranslationGroup ( Key )

Parameters:

Key As String -

Description:

Finds the CIMTranslationGroup object with the given key value. The key compare is case sensitive so "Hello" will find a different CIMTranslationGroup than "HELLO".

Example:

Sub LookupTranslationGroup_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

    oLangMap.Load
"c:\trans.clm"

    Set oTranslationGroup =
oLangMap.LookupTranslationGroup("Hello")

    if Not oTranslationGroup Is Nothing
Then

      MsgBox
oTranslationGroup.Key

      For Each oTranslation In
oTranslationGroup.Translations

        MsgBox
oTranslation.Value

        MsgBox
oTranslation.Language.Name

      Next
oTranslation

End If
End Sub