如何使用VB.Net将字符串转换为表达式？

Question

这是我的应用程序的预览：

在这里，我希望我的结果文本框应该从功能文本框中提供字符串的结果...

我的代码示例：

Private Sub btnSubmint_Click(sender As Object, e As EventArgs) Handles btnSubmint.Click
    txtResult.Text = CovertStringToExpression(txtFunction.Text)
End Sub

  

例如，如果我写txtFunction.Text = "txtInput.Text"，那么结果文本框应该显示文字，＆＃34; Hello World＆＃34; < / em>的

截图：

或

  

注意：

     

txtInput =输入TextBox

     

txtFunction =功能TextBox

     

txtResult =结果TextBox

Answer 1

哦，那太简单了！您需要更改尝试使代码工作的方式......

按照以下几个简单的步骤。

  

第1步

  

第2步

  

第3步

  

第4步

  

第5步 - 将 ScriptControl对象添加到表单

  

第6步

将此代码添加到表单中。

Private Sub TestForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    AxScriptControl1.AddObject("txtInput", txtInput)
    AxScriptControl1.AddObject("txtResult", txtResult)
    AxScriptControl1.AddObject("txtFunction", txtFunction)
End Sub

Private Sub btnSubmint_Click(sender As Object, e As EventArgs) Handles btnSubmint.Click
    AxScriptControl1.ExecuteStatement(txtFunction.Text)
End Sub

现在，如果您在功能文本框中键入txtResult.Text = txtInput.Text并单击提交按钮，您将获得所需的结果。

希望它有所帮助！