1.Project->Import Type Library->Microsoft Script Control 1.0->Install
则会在ActiveX页上看到这个控件TScriptControl
2.在窗体上添加一个TScriptControl类的实例。设置好它的Language属性:VBScript,JScript...IE认识的它都认识,以VbScript为例:
运行脚本:ScriptControl1.ExecuteStatement('msgbox("Runing....")'); //这个好像不行,也许我的VBS引用的不一样吧
计算公式:ShowMessage(scriptcontrol1.Eval('1+1'));
则会在ActiveX页上看到这个控件TScriptControl
2.在窗体上添加一个TScriptControl类的实例。设置好它的Language属性:VBScript,JScript...IE认识的它都认识,以VbScript为例:
运行脚本:ScriptControl1.ExecuteStatement('msgbox("Runing....")'); //这个好像不行,也许我的VBS引用的不一样吧
计算公式:ShowMessage(scriptcontrol1.Eval('1+1'));