MessageManager.AddLanguage 方法

AddLanguage 方法

向消息管理对象中添加新的语言对象

语法

Set Lang = mm.AddLanguage(strLanguage[, CodePage])

参数

Lang

返回新创建的语言对象，参见 MessageColl 对象

一个实例化的消息管理对象

strLanguage

语言名称，以后可作为键值查询此次加入的语言对象

CodePage

语言相对应的代码页，仅用于描述语言，可省略，缺省为0

注释

AddLanguage 方法用于向消息管理对象中添加一个新的语言对象，方法返回新建的对象。添加对象时必须指定语言标识，用于使用时查询指定的语种。如果添加的语种已经存在，则此方法将用新的空白对象替换以前的语言对象。

示例

下面的例子创建一个消息管理对象，添加一个新消息对象，建立一个消息，并最终使用格式化输出。

Set mm = CreateObject("NetBox.MessageManager")
Set mc = mm.AddLanguage("testLang")
mc.AddMessage "testMsg", "Arg 1: %1, Arg 2: %2, Arg 3: %3"
mc.AddMessage "testMsg1", "Arg 3: %3, Arg 2: %2, Arg 1: %1"

Set mc1 = mm.GetLanguage("testLang")
Shell.Console.WriteLine mc.FormatMessage("testMsg", 100, 200, 300)
Shell.Console.WriteLine mc.FormatMessage("testMsg1", 100, 200, 300)

上面的程序执行结果是：

Arg 1: 100, Arg 2: 200, Arg 3: 300
Arg 3: 300, Arg 2: 200, Arg 1: 100

应用于

MessageManager 对象