VB で JScript が使えるんだー
Big Sky :: 自作のWindowsアプリケーションにJavaScriptで動作するプラグイン機能を実装する方法
こちらのサイトで、"ScriptControl" というコンポーネントがあることを知りました。
早速、これを VB で使ってみました。
Private Sub Command1_Click() Dim js As Object Dim code As String Set js = CreateObject("ScriptControl") js.Language = "JScript" code = vbNullString code = code & "var func = function() {" code = code & " var result = 0;" code = code & " for (var i = 0; i < arguments.length; i++) {" code = code & " result += arguments[i];" code = code & " }" code = code & " return result;" code = code & "};" Call js.AddCode(code) Call MsgBox(js.eval("func(1, 2, 3, 4, 5)")) Set js = Nothing End Sub