运行时能不能生成一个动态的表达式

Question

Dim sc As ScriptControl
Set sc = New ScriptControl
With sc
     .Language = "VBScript"
End WithDim abc As String
abc = "123456789"Dim sExp As String
sExp = "Mid(" & abc & ",1,2)"Dim sRet As String
sRet = sc.EVal(sExp)MsgBox sRet

Answer 1

怎么你的代码好像不行，我用的是vb6，部件中将msscript.ocx加载，为什么？

Answer 2

上面Un1回复的方法我试过，可以完成你提出的问题，我是这样作的：在 form 上放一个
scriptControl控件，而不是象Un1那样用 new ！

Answer 3

两种方法都可以。
我的方法需要在“工程”->“引用”中加入"Microsoft Script Control"，或者使用：
set sc = CreateObject("ScriptControl")这种方法允许在Script代码中Set Script 引擎为Nothing释放资源，而控件方式则不允许。