MSScriptControl.ScriptControl组件的用法实例
63 浏览量
2020-09-04
07:20:49
上传
评论
收藏 63KB PDF 举报
MSScriptControl.ScriptControl组件的用法实例组件的用法实例
主要介绍了MSScriptControl.ScriptControl组件的用法实例,需要的朋友可以参考下
Microsoft(R) Script 控件使用户可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting
Edition 或Microsoft(R) JScript(TM) 的应用程序。用户可以将任何 Automation 对象的对象模型添加到 Script 控件中，这样该
对象的方法和属性就可以为 scripting 引擎所使用。通过将某个应用程序的对象模型和某个scripting 引擎加以综合，用户就可
以创建一个结合了两方面优点的 scripting 应用程序。应用程序不但具有 scripting 语言的简单化特点，而且综合了一种更高
级、具有完整特性的专业应用程序的对象、方法，以及属性。
创建创建 Script 控件的实例控件的实例
Microsoft Script 控件可作为一个控件或者作为一个独立的 Automation 对象创建出来。该特性可以使得用任何语言书写的应用
程序都可以用 ScriptControl 宿主任何兼容的 scripting 语言。
下面的示例可使用任意格式。请注意变量 sc 并未声明为类型 ScriptControl，因为该控件不是，也不必要是工程中所引用的。
只要 Script 控件出现并进行注册，下面的代码就可正常工作：
复制代码 代码如下:
Private Sub Command1_Click()
Dim sc
Dim strProgram As String
strProgram = "Sub Main" & vbCrLf & _
"MsgBox ""Hello World""" & vbCrLf & _
"End Sub"
Set sc = CreateObject("ScriptControl")
sc.language = "VBScript"
sc.addcode strProgram
sc.run "Main"
End Sub
如果用户在自己的工程中的引用中对 Script 控件进行显式引用，那么用户就可以用下面的代码创建 Script 控件的一个
实例：
复制代码 代码如下:
Dim sc As ScriptControl
显示用户接口元素 AllowUI 属性决定了 scripting 引擎是否可以显示用户接口元素。这可以应用于 Script 控件本身，例如显示
超时消息。
这也可以应用于使用 ActiveX scripting 接口的 scripting 引擎。例如，下面的代码将在试图显示 Hello World 消息框时产生一个
错误：
复制代码 代码如下:
ScriptControl1.AllowUI = False
Dim strX As String
strX = "Sub Hello" & vbCrLf & _
"MsgBox ""Hello World""" & vbCrLf & _
"End Sub"
ScriptControl1.AddCode strX
ScriptControl1.Run "Hello" ' 没有允许的 UI！
创建创建 Scripting 代码代码
Microsoft Script 控件使用户可以创建一个运行 scripting 语言，例如 VBScript 或 JScript 的应用程序。例如，假设用户在窗体
上有一个按钮，用户希望在按下该按钮时运行某些 VBScript 代码。该按钮称为 Run NameMe，而用户希望scripting 代码运行
一个叫 NameMe 的过程。意图是当用户单击 Run NameMe 按钮时，VBScript scripting 引擎执行 NameMe 过程。
这个 Run NameMe 按钮使用 Script Control 的 Run 方法来执行脚本。下面就是应当出现在 Run NameMe 按钮的 Click 事件中
的代码：
复制代码 代码如下:
' Script Control 的名字是 ScriptControl1。
Private Sub RunNameMe_Click()
资源评论
