VB调用外部文字做函数执行

来源：百度知道 编辑：UC知道 时间：2024/06/24 23:29:55
VB能不能在编译后调用外部输入的文字来执行啊
比如
我在text1.text
中输入
a=5
if a<10 then
msgbox a
end if

然后我点击command按钮 就用VB执行代码啊?

本例可以调用外部VBS编写的代码(注：VB与VBS基本相同，但略有区别)：
在部件中添加ms script control 1.0
在窗体中添加一个ms script control，一个label，两个text，两个command。。。

程序：
Option Explicit

Private Sub Command1_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.AddCode (Text1.Text)
ScriptControl1.Run ("Test")
End Sub

Private Sub Command2_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.ExecuteStatement (Text2.Text)
End Sub

Private Sub Form_Load()
'Expose the form as frmMainWindow
ScriptControl1.AddObject "frmMainWindow", Me
Text1 = "sub Test()frmMainWindow.label1=""hello"" end sub"
Text2 = "frmMainWindow.BACKCOLOR=VBRED"
End Sub

不可以。<