Adds a language to the Languages collection. | |
Syntax: | Set object = object.AddLanguage ( Name, LocaleID ) |
Parameters: |
Name As
String -
LocaleID As
long -
|
Description: | Adds a language
to the Languages
collection. If the language
already exists, this will change the LocaleID of the existing language
to the LocaleID passed.
The name is case insensitive so "JPN", is the same as "jpn". Example: Sub AddLanguage_Example() Dim oLangMap As
CIMLangMapper.CIMLangMap Dim oLang As
CIMLangMapper.CIMLanguage Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap") oLangMap.Load
"c:\trans.clm" Set oLang =
oLangMap.AddLanguage("JPN", 1041) oLangMap.Save End Sub |
See Also: | CIMLanguage , CIMLanguage.LocaleID |