Adds a CIMLanguage to this collection. | |
Syntax: | Set object = object.AddLanguage ( Name, LocaleID ) |
Parameters: |
Name As
String -
LocaleID As
long -
|
Description: | Adds a CIMLanguage to this collection. If the
language already exists, this will change the LocaleID property 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 oLangs As
CIMLangMapper.CIMLanguages Dim oLang As
CIMLangMapper.CIMLanguage Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap") oLangMap.Load
"c:\trans.clm" Set oLangs =
oLangMap.Languages Set oLang = oLangs.AddLanguage("JPN",
1041) oLangMap.Save End Sub |
See Also: | CIMLanguage , CIMLangMap.AddLanguage |