VB调用JS函数并返回结果

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 Function
Private Sub Command1_Click()
MsgBox Script(Text1.Text)
End Sub


测试：

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


 

posted on 2010-10-20 22:02 aiaiwoo 阅读(1079) 评论(0)  编辑  收藏


只有注册用户登录后才能发表评论。
网站导航:
 
<2024年12月>
日一二三四五六
24252627282930
1234567
891011121314
15161718192021
22232425262728
2930311234

导航

统计

常用链接

留言簿

随笔分类

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜