关于vb.neteval的信息

vb.net如何运算一个字符串

调用脚本解析引擎，

成都创新互联公司10多年成都企业网站定制服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都企业网站定制及推广,对自上料搅拌车等多个行业拥有丰富设计经验的网站建设公司。

textbox2.text=Eval(textbox1.text).ToString()

Function Eval(ByVal Expressions As String) As Double

Dim Mssc = CreateObject("MSScriptControl.ScriptControl")

Mssc.Language = "vbscript"

Return CDbl( Mssc.Eval(Expressions))

End Function

不喜欢上面提示的警告的话

textbox2.text=EvalString(textbox1.text)

Function EvalString(ByVal Expressions As String) As String

dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")

Dim o = System.Activator.CreateInstance(oType)

oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})

Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()

End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

Dim Scr As Object

Scr = CreateObject("MSScriptControl.ScriptControl")

Scr.Language = "Vbscript"

Dim t As Single

t = Scr.Eval(TextBox1.Text)

MsgBox(t)

作用是把对应的字符串解析成js代码并运行。eval()是程序语言中的函数，功能是获取返回值，不同语言大同小异，函数基础是返回值= eval(codeString)，如果eval函数在执行时遇到错误，则抛出异常给调用者。

如果eval函数在执行时遇到错误，则抛出异常给调用者。类似的函数是loadcode，loadcode不立即执行代码，另外返回一个函数对象。并且loadcode支持路径参数，评估不支持。评估不支持代码中的返回语句，将代码作为表达式直接计算出结果。