利用vb里面加入自己编写的JavaScript程序。怎么弄?

JavaScript021

利用vb里面加入自己编写的JavaScript程序。怎么弄?,第1张

在Visual Studio中打开一个已经存在的asp.net应用程序。

然后打开Internet 信息服务(IIS)管理器，把“启用 ASP 服务器端脚本调试”和“启用 ASP 客户端脚本调试”两个复选框选中即可。

JavaScript（缩写为JS）是一种高级的、多范式、解释型的编程语言，是一门基于原型、函数先行的语言，它支持面向对象编程、命令式编程以及函数式编程。它提供语法来操控文本、数组、日期以及正则表达式，不支持I/O（比如网络、存储和图形等），但可以由它的宿主环境提供支持。它已经由ECMA（欧洲计算机制造商协会）通过ECMAScript实现语言的标准化。它被世界上的绝大多数网站所使用，也被世界主流浏览器支持。

Dim code As Object

Set code = CreateObject("ScriptControl")

code.Language = "JavaScript"

查询一下如何使用 VBS ScriptControl

VB/VBS 动态执行 代码

我们有时候需要在程序中动态执行一段string类型的代码，类似js中的eval函数，

下面的操作可以满足这一要求。

（有一点要注意，ScriptControl 调用的是vbs，有的vb的函数不能用，如val ）

我们需要使用ScriptControl

在部件中添加MS Script Control 1.0

在窗体中添加一个MS Script Control

使用方法如下：

ScriptControl1.Language = "VBScript" '定义语言

ScriptControl1.AddObject "Text1", Text1 '添加控件，否则在执行时无法调用，

'需要什么控件添加什么就行

ScriptControl1.ExecuteStatement("Text1.Text=""12345""") '执行语句

也可以用ScriptControl1.AddCode来添加函数

如：

ScriptControl1.AddObject "Label1", Label1

ScriptControl1.AddCode "sub Test() label1=""hello"" end sub" '定义了一个函数test

ScriptControl1.Run ("test") '调用函数test甚至可以给添加的函数加上参数，如：

ScriptControl1.AddObject "Label1", Label1

ScriptControl1.AddCode "sub test(str)" &vbCrLf &" label1=str " &vbCrLf &" end sub"

ScriptControl1.Run "test", "Hello" '第二个参数是一个Variant型的数组，用来传递函数test的参数