vb 运行text里输入函数

来源：百度知道 编辑：UC知道 时间：2024/07/01 07:58:11
vb 如何运行text里输入函数
好像 在text1里输入
y＝x+1

x＝text2
y＝x+1
text3＝y

不知这样可不可以

实现用控件.

VB点"工程"->"部件", "控件"选项卡选取"Microsoft Script Control 1.0", 确定. 工具箱找ScriptControl控件, 添加窗体, 再添加TextBox, Command, Label. 加入代码:

Private Sub Command1_Click()
Dim s As String
s = "function RunThis()" & vbCrLf & "RunThis=" & Text1.Text & vbCrLf & "end function"
ScriptControl1.AddCode s
Label1.Caption = ScriptControl1.Run("RunThis")
End Sub

text1输入任何表达式, 包括 now, time, date, 5+4-1, msgbox "Hello!", 执行结都label1显示. 注意! 能表达式调用控件!! 输入表达式能影响程序变量. 面写函数, 能直接引用程序变量控件.

这个实现用到一个控件.

在VB里点"工程"->"部件", 在"控件"选项卡里选取"Microsoft Script Control 1.0", 然后确定. 在工具箱找到ScriptControl控件, 添加到窗体中, 再添加一个TextBox, 一个Command, 一个Label. 然后加入如下代码:

Private Sub Command1_Click()
Dim s As String
s = "function RunThis()" & vbCrLf & "RunThis=" & Text1.Text & vbCrLf & "en