VB调用JS函数并返回结果

Private Function Script(code As StringAs 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 阅读(1071) 评论(0)  编辑  收藏


只有注册用户登录后才能发表评论。


网站导航:
 
<2024年3月>
252627282912
3456789
10111213141516
17181920212223
24252627282930
31123456

导航

统计

常用链接

留言簿

随笔分类

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜