[VB.NET]请教MSScript.ocx 问题

请教MSScript.ocx 问题 我用MSScript.ocx vb6.0的控件,在vb.net中加入该控件,怎么试都不行,请高手指教。 Private Sub Button1_Click() AxScriptControl1.AddCode( Function returnthis & vbCrLf _ & returnthis = 5 & vbCrLf _ & End Function ) Dim obj() As Object Dim a As Int32 = AxScriptControl1.Run( returnthis,obj) End Sub 运行后出错,报如下信息: 未处理的“System.NullReferenceException”类型的异常出现在 axinterop.msscriptcontrol.dll 中。 其他信息: 无效指针 __________________________________________________________________________ 怎么没有人帮忙呀?有谁要是帮我解决了此问题,我就帮我盛下的分数全给他, 我很急呀! __________________________________________________________________________ Function returnthis() __________________________________________________________________________ Dim Gongshi As String Dim ResultData As Double Gongshi = OrgData*1000 公式 ScriptControl1.AddCode( private OrgData ) 先定义公式中的变量 ScriptControl1.AddCode( OrgData=5 ) 给变量赋值 ResultData = ScriptControl1.Eval(Gongshi) 计算结果 __________________________________________________________________________ 谢谢UserInfo(神话) ,你的这种方法我后来自己试出来了,但 用AxScriptControl1.Run()方法,不知怎么调用? __________________________________________________________________________ 我想给你分,但怎么也结不了贴,真奇怪 __________________________________________________________________________

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...