易语言快速统计编辑框字数( 五 ) _电脑

44-4 类模块
1.点击易说话插入菜单，选择类模块如：类1
2.把类1下的两个默认添加的2个方式， _初始化和 _销毁删除，只留下一个类头部。
3.把类1名称改为： JS剧本类模块
4.因为粘贴不会生当作类当作员，需要自行添加1个类当作员
点击 JS剧本类模块名称位置，然后回车，在私有当作员名输入： JS剧本
类型输入对象。
4.把下面代码粘贴在 JS剧本类模块下面【参考下图：】
.版本 2
.法式集 JS剧本类模块
.子法式 _初始化, , , 当基于本类的对象被建立后，此方式会被主动挪用，
加载COM (0)
JS剧本.建立 (“ScriptControl”, )
JS剧本.写属性 (“Language”, “JScript”)
.子法式 _销毁, , , 当基于本类的对象被销毁前，此方式会被主动挪用
JS剧本.断根 ()
卸载COM ()
.子法式剧本说话, 文本型, 公开, 设置或获取剧本引擎诠释的说话，可供选择的属性值：JScript VBScript
.参数说话名, 文本型, 可空, 若是，供给的参数文本，既不等于 JScript 也不等于 VBScript 会设置为 JScript
.判定起头 (是否为空 (说话名) ＝真)
返回 (JS剧本.读文本属性 (“Language”, ))
.默认
.若是真 (说话名 ≠ “JScript” 且说话名 ≠ “VBScript”)
说话名＝ “JScript”
.若是真竣事
返回 (到文本 (JS剧本.写属性 (“Language”, 说话名)))
.判定竣事
.子法式超时, 整数型, , Timeout ，设置或返回时候（毫秒），此时候后用户可选择中止剧本代码的执行或许可代码继续执行。
.参数欲写入属性值, 整数型, 可空, -1 暗示直到执行完才返回。
.判定起头 (是否为空 (欲写入属性值) ＝真)
返回 (JS剧本.读数值属性 (“Timeout”, ))
.默认
返回 (到整数 (JS剧本.写属性 (“Timeout”, 欲写入属性值)))
.判定竣事
.子法式错误信息, 对象, 公开, Error 若是剧本执行犯错返回犯错申明。
返回 (JS剧本.读对象型属性 (“Error”, ))
.子法式剧本执行, 整数型, 公开, ExecuteStatement,返回0为执行正常，返回非0为犯错，错误信息可以从“错误码信息”属性中取得。本号令为初级对象当作员号令。
.参数 Statement, 文本型, , 包含要执行的剧本代码，如为空则默认为执行前次的剧本代码。若是剧本代码中包罗函数或过程，执行此方式后可以用“运行”方式来零丁执行。
返回 (JS剧本.数值方式 (“ExecuteStatement”, Statement))
.子法式剧本运行, 文本型, 公开, Run,若有返回值返回响应文本，不然返回空文本。本号令为初级对象当作员号令。号令参数表中最后一个参数可以被反复添加。
.参数 ProcedureName, 文本型, , 所要运行的过程或函数名。
.参数 P1, 文本型, 可空, 可以被扩展。
.参数 P2, 文本型, 可空
.参数 P3, 文本型, 可空
.参数 P4, 文本型, 可空
.参数 P5, 文本型, 可空
.参数 P6, 文本型, 可空
.参数 P7, 文本型, 可空
.参数 P8, 文本型, 可空
.判定起头 (是否为空 (P1) ＝真)
返回 (JS剧本.通用方式 (“Run”, ProcedureName, P1).取文本 ())

易语言快速统计编辑框字数( 五 )

猜你喜欢