VB调用JS函数并返回结果

页面导航:首页 > 网络编程 > JavaScript > VB调用JS函数并返回结果

VB调用JS函数并返回结果

来源:互联网 作者:脚本宝典 时间:2015-08-12 13:50 【

VBScript code 复制代码 PrivateFunctionScript(codeAsString)AsStringDimobjAsObjectSetobj=CreateObject(MSScriptControl.ScriptControl)obj.AllowUI=Trueobj.Language=JavaScriptScript=obj.Eval(code)EndFunctionPrivateSubCommand1_Click()MsgBoxScr
  • VBScript code复制代码

  • Private Function Script(code As String) As String
        Dim obj As Object
        Set obj = CreateObject("MSScriptControl.ScriptControl")
        obj.AllowUI = True
        obj.Language = "JavaScript"
        Script = obj.Eval(code)End FunctionPrivate Sub Command1_Click()    MsgBox Script(Text1.Text)End Sub


测试:


  • JavaScript code复制代码

  • function add(s1,s2){ return s1+s2;
    }
    add(10,5);



Tags: vb  

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<