Visual Basic ScriptControl不会写入变量吗？

Question

我试图在Visual中制作一个(非常简单的)图形计算器，我使用了ScriptControl，这样用户就可以输入他们自己的公式，并使用eval()来获得结果。

Public Class Form1

    Dim sc As MSScriptControl.ScriptControl = New MSScriptControl.ScriptControl

    Private Sub Form1_KeyPressed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.KeyPress, Me.Load

        sc.Language = "VBScript"
        sc.AddObject("x", 355, True)
        sc.AddCode("Sub setx(xvalo)" + vbCrLf + "x = xvalo" + vbCrLf + "End Sub")

        Me.CreateGraphics.DrawLine(Pens.Black, New Point(0, 200), New Point(5000, 200))
        Dim eq As String = InputBox("Please enter equation:")
        Dim y As Double = 0
        For i As Double = 0 To 50 Step 0.01
            sc.Run("setx", i)
            y = sc.Eval(eq)
            Me.CreateGraphics.DrawLine(Pens.Blue, New Point(i * 10, y * 10 + 200), New Point(i * 10 + 0.1, y * 10 + 0.1 + 200))
        Next

    End Sub
End Class

当我运行这个并输入x + 2，甚至在提示符框中输入x时，我会得到一个异常：NotSupportedException: Object doesn't support this property or method: 'x'

但我之前加了x..。有人知道怎么解决这个问题吗？

还有一件奇怪的事情:每当我试图编辑sc.AddCode()参数时，它都说是COMException was unhandled。

Answer 1

ScriptControl，以便用户能够输入自己的方程。

您可以尝试使用DataTable中的Compute方法，而不是为DataTable设计的旧的遗留控件：

            Dim dt As New DataTable()
            Try
               Dim result2 As Double = CDbl(dt.Compute(ExpressionString, ""))
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

使用Try块，无效的公式不会停止执行

它还将计算嵌套括号‘(3*(12.223+ 15)) - 7)*21)/7’。