通过ScriptControl实现带参数的公式计算

转帖|其它|编辑:郝浩|2008-10-09 11:12:31.000|阅读 1577 次

概述:通过ScriptControl实现带参数的公式计算

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>

问题:如何实现简单的四则运算,例如a+b-c*(a+e)。然后将参数值代入到算式中进行计算。

通过ScriptControl可以完成这个功能。

首先创建一个工程,在工程中加入一个新的类,类名称为Class1,然后在类中加入以下定义 :

Public k1 As Integer
Public a As Integer
Public b As Integer
Public c As Integer

Public ev As String
在Form1中加入代码:

    Dim shar As New Class1
   
    'a b c分别为赋值
    shar.a = 4
    shar.b = 6
    shar.c = 2
   
    ScriptControl1.AddObject "sh", shar
    'Text1是用户输入的算式
    Text1.Text = "a + b - c"

    ScriptControl1.AddCode "Function Main()" & _
        "dim a" & vbCrLf & "dim b" & vbCrLf & "dim c" & vbCrLf _
        & " a = sh.a" & vbCrLf & " b = sh.b " & vbCrLf & "c = sh.c" & vbCrLf _
        & vbCrLf & "kk= " & Text1.Text & vbCrLf & "sh.k1 = kk " & vbCrLf & "End Function"

    ScriptControl1.Run "main"
    MsgBox "结果等于:" & shar.k1, , "运算结果"
Script Control支持通过自定义对象与代码交互,通过AddObject方法可以向ScriptControl中加入一个对象(代码中加入了名称为sh的Class1对象),然后在算式中就可以操作sh对象了。


标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com

文章转载自:CSDN

为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP