【转】VB控件和对象：ScriptControl 控件

 

3. ScriptControl 控件

    Microsoft Script Control 控件可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的应用程序。简单的的说，可以在程序运行期间，允许用户编写代码并执行代码，计算带变量的的表达式等。

    ■运行时设置程序代码：
    '▲显式创建，勾选引用（不选部件） Microsoft Script Control
    Private Sub Command1_Click()
       Dim strProgram As String, sc As ScriptControl
       '编写代码
       strProgram = "Sub My1" & vbCrLf & _
    "MsgBox ""运行时设置代码"" ,vbInformation,""我的代码""" & vbCrLf & _
    "End Sub"
       '设置代码语言，并将代码添加到 ScriptControl
       Set sc = CreateObject("ScriptControl")
       sc.Language = "VBScript"
       sc.AddCode strProgram
       '运行代码
       sc.Run "My1"
    End Sub
    '▲隐式创建，不勾选部件和应用
    Private Sub Command1_Click()
       Dim strProgram As String, sc
       '编写代码
       strProgram = "Sub My1" & vbCrLf & _
    "MsgBox ""运行时设置代码"" ,vbInformation,""我的代码""" & vbCrLf & _
    "End Sub"
       '设置代码语言，并将代码添加到 ScriptControl
       Set sc = CreateObject("ScriptControl")
       sc.Language = "VBScript"
       sc.AddCode strProgram
       '运行代码
       sc.Run "My1"
    End Sub
    '▲使用控件，勾选部件 Microsoft Script Control,并向窗体添加控件 ScriptControl1
    Private Sub Command1_Click()
       Dim strProgram As String
       '编写代码
       strProgram = "Sub My1" & vbCrLf & _
    "MsgBox ""运行时设置代码"" ,vbInformation,""我的代码""" & vbCrLf & _
    "End Sub"
       '设置代码语言，并将代码添加到 ScriptControl
       ScriptControl1.Language = "VBScript"
       ScriptControl1.AddCode strProgram
       '运行代码
       ScriptControl1.Run "My1"
    End Sub

■Script的模块与过程
    '▲添加一个模块，默认只有一个模块：Global
       ScriptControl1.Modules.Add "Modu2"
    '▲在模块 1 中添加过程代码,
    '注意 Script 变量定义不能指定类型, dim a as long 会出错
       nStr="dim a" & vbCrLf & _
    "Function MyFun(x,y)" & vbCrLf & _
    "   a=a+1 " & vbCrLf & _
    "   MsgBox ""a="" & a & "" x+y="" & x+y,vbInformation,""运行时设置代码""" & vbCrLf & _
    "   My1=a" & vbCrLf & _
    "End Function"
       ScriptControl1.Modules(1).AddCode nStr
    '▲调用有返回值的函数
       d = ScriptControl1.Modules(1).Run(MyFun, 1, 2) '运行代码
    '▲列出所有模块名称
       Dim I As Long
       List1.Clear
       For I = 1 To ScriptControl1.Modules.Count
          List1.AddItem ScriptControl1.Modules(I).Name
       Next
    '▲列出模块 M 的所有过程名称
       Dim I As Long,M as long
       List2.Clear
       M=1
       For I = 1 To ctSc.Modules(M).Procedures.Count
          List2.AddItem ctSc.Modules(M).Procedures(I).Name
       Next
    End Sub

■计算带变量的表达式
    Private Sub Command1_Click()
      '执行一条 scripting 语句例子
       x = 10
       ScriptControl1.ExecuteStatement "x=" & x '执行一条 scripting 语句,将值 10 赋给变量 x
       S = ScriptControl1.Eval("(x-1)^2")
       MsgBox S
    End Sub

■错误通告 
    Private Function ErrInf() As String
       ErrInf = ScriptControl1.Language & " 语法错误：行 " & ScriptControl1.Error.Line & "，列 " & ScriptControl1.Error.Column & vbCrLf & vbCrLf & _
    "错误号：" & ScriptControl1.Error.Number & "，" & ScriptControl1.Error.Description
    End Function

■ScriptControl 控件的语句使用 VBScript 语法，