MSScriptControl.ScriptControl组件的用法实例(2)
在用户运行 NameMe 过程之前，可使用 AddCode 方法将完整的过程添加到 Script 控件中。如果用户试图将一个不完整的过程（一个没有 End Sub 或者 End Function 的过
在用户运行 NameMe 过程之前，可使用 AddCode 方法将完整的过程添加到 Script 控件中。如果用户试图将一个不完整的过程（一个没有 End Sub 或者 End Function 的过程）添加进去，则将会出错。下面的代码将过程代码添加到 Script
Control 中：
复制代码 代码如下:
' 当 ScriptRun 应用程序加载时，添加下面的代码
' 将 NameMe 过程添加到 Control 中。
Private Sub Form_Load()
Dim strCode As String
strCode = "Sub NameMe()" & vbCrLf & _
" Dim strName As String" & vbCrLf & _
" strName = InputBox(""Name?"")" & vbCrLf & _
" MsgBox ""Your name is "" & strName" & vbcrLf & _
"End Sub"
ScriptControl1.AddCode strCode
End Sub
另外，用户也可以从某个 TextBox 控件添加过程代码：
复制代码 代码如下:
Private Sub Form_Load()
' 该代码包含在名为 frmScript 的窗体上
' 名为 txtScript 的 Textbox中。
ScriptControl1.AddCode frmScript.txtScript.Text
End Sub
用户可以将参数添加到某个过程或者函数中。
复制代码 代码如下:
Private Sub EvalFunc()
' 创建函数。
Dim strFunction As String
strFunction = _
"Function ReturnThis(x, y)" & vbCrLf & _
" ReturnThis = x * y" & vbCrLf & _
"End Function"
' 添加代码，然后运行该函数。
ScriptControl1.AddCode strFunction
MsgBox ScriptControl1.Run("ReturnThis", 3, 25)
End Sub
运行过程
Run 方法运行任何已被添加到 Script 控件中的完整过程。下面的代码段运行三个已定义过程：
复制代码 代码如下:
ScriptControl1.Run "FindName"
ScriptControl1.Run "AddName"
ScriptControl1.Run "Quit"
执行 Scripting 语句，并计算结果，用户可以用 ExecuteStatement 方法执行一条 scripting 语句。用户可以用 eval 方法计算某个表达式值。在下面的示例
中，用 ExecuteStatement 方法将值 100 赋给变量 x。下面的两行用 eval 方法来测试语句 x = 100 和 x = 100/2。第二行返回 True；而第三行则返回 False。
复制代码 代码如下:
Private Sub TryThis()
ScriptControl1.ExecuteStatement "x = 100"
MsgBox ScriptControl1.Eval("x = 100") ' 返回 True
MsgBox ScriptControl1.Eval("x = 100/2") ' 返回 False
End Sub
ScriptControl1.ExecuteStatement "x = 100"
MsgBox ScriptControl1.Eval("x = 100") ' 返回 True
MsgBox ScriptControl1.Eval("x = 100/2") ' 返回 False
End Sub
使用 Error 属性
Script 控件错误有两个可能来源：Script 控件自身，或者该控件试图运行的 script。为了对 scripting 代码进行调试，可使用 Error 属性，该属性返回对 Error 对象的引用。利用 Error 对象，Script 控件可以返回错误数目和对它的
描述，以及错误在 script 中出现的行号。
运行下面的代码，查看 Script 控件发现错误的一个示例：
复制代码 代码如下:
Private Sub MyError()
' 下面的代码被零除导致
' 一个错误。
Dim strCode As String
strCode = _
"Sub DivideByZero()" & vbCrLf & _
"Dim prime" & vbCrLf & _
"prime = 3" & vbCrLf & _
"MsgBox prime/0" & vbCrLf & _
"End Sub"
On Error GoTo scError
With ScriptControl1
.AddCode strCode
.Run "DivideByZero"
End With
Exit Sub
scError:
' 使用 Error 对象向用户通告
' 错误，以及出错行。
Debug.Print ScriptControl1.Error.Number & _
":" & ScriptControl1.Error.Description & _
" in line " & ScriptControl1.Error.Line
Exit Sub
End Sub
收藏文章
精彩图集
精彩文章
