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

Question

我想用字符串变量来存贮VB的某一条指令，在一定条件下调出来执行。例如Private Sub Command1_Click()
    Dim str As String
    str = "text1.text=""测试成功"""
    ???
End Sub
什么指令可以让str中的字符指令执行？

Answer 1

这恐怕只有你自己做指令解析并利用CallByName函数来执行了.例子:str = "text1.text=""测试成功""" 这个字符串可以用以下的几个条件来解析:一,等号左右边分别为被赋值对象与值;二,被赋值对象由小数点区分"上级"与"下级".因为这里可能出现多级的情况,要一一解析出来;三,等号右边的值,需要根据字符串形式,决定是什么类型,比如上面的双引号包夹,则是字符串.还有其它规则需要考虑,比如运算符优先级等....等待更好的方案,呵呵.........

Answer 2

'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