VB-Helper：坚守脚本

领测软件测试网

使用该控件的 AddObject 方法通知它允许脚本使用哪些个对象。该代码向 AddObject 传递所使用脚本的名称及相应的引用。例如，它可能调用某个 PictureBox“TheCanvas”。然后，脚本就可以按如下语句操作 PictureBox：

TheCanvas.Line (1440, 1440)-Step(2880, 1440), _
vbRed, BF

下一步，使用该控件的 AddCode 方法为它提供一些脚本代码。最后，调用 Run 方法执行由该脚本定义的例程。

清单 1 演示了 VB6Script 示例程序如何执行一个较小的硬编码脚本，该示例程序包含在本月的下载中。您可以仅简单地从文本文件或数据库中加载该脚本 ─ 或者让用户输入。

清单 1. 在 VB6 中使用 Microsoft 脚本控件撰写脚本比较简单。 

’ Make a MSScriptControl. (See source for Rod’s 
’ fully commented code. I cut most. Ed.)
Dim script_control As New _
   MSScriptControl.ScriptControl
script_control.Language = "VBScript"
script_control.AddObject "TheForm", Me

文章来源于领测软件测试网 https://www.ltesting.net/