vb能否将字符串内容做为指令来执行？

我想用字符串变量来存贮VB的某一条指令，在一定条件下调出来执行。

例如

Private Sub Command1_Click()
    Dim str As String
    str = "text1.text=""测试成功"""
    ???
End Sub


什么指令可以让str中的字符指令执行？

---

这恐怕只有你自己做指令解析并利用CallByName函数来执行了.

例子:

str = "text1.text=""测试成功"""

这个字符串可以用以下的几个条件来解析:

一,等号左右边分别为被赋值对象与值;

二,被赋值对象由小数点区分"上级"与"下级".因为这里可能出现多级的情况,要一一解析出来;

三,等号右边的值,需要根据字符串形式,决定是什么类型,比如上面的双引号包夹,则是字符串.

还有其它规则需要考虑,比如运算符优先级等....

等待更好的方案,呵呵.........

---

使用Script控件

---

VB code:

'1.部件添加Microsoft Script Control 1.0控件
'2.从工具栏双击添加到窗体

Private Sub Form_Load()
ScriptControl1.AddObject "Text1", Text1
End Sub

Private Sub Command1_Click()
Dim iStr As String
iStr = "text1.text=""测试成功"""
ScriptControl1.ExecuteStatement (iStr)
End Sub