如何执行变量中的语句？

[jameschan]

一下子不太说得清楚，请看例子：
dim aa
aa="text1.text='你好'"
如何利用 aa 变量
达到
text1.text="你好"
这句语句的效果？
突然想到的怪问题，不知道怎么解决，奇怪。。。
急等答案！！！

[wangchong]

好像不行！！！我们有做成功！！！

[chen2831278]

这个问题本身就很奇怪 感觉没设么讨论的必要

[jameschan]

因为奇怪，所以想找答案，谢绝没有创意的人。

[chen2831278]

偶是菜鸟　希望大哥别介意

[alone_walk]

利用VBSCRIPT控件可以实现

[缪军]

只要格式化字符串，就能实现

[lsftest]

EbExecuteLine只能在ide情况下使用，程序编译成exe后就不行了。。。。。。。。。

[jameschan]

请各位能人详细说明一下，感谢！！！

[lsftest]

一个简单例子：
'在form中加两个text，一个label，两个command，一个microsoft Script Control
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

[zyg0]

Option Explicit

Private Declare Function EbExecuteLine Lib "vba6.dll" ( _
ByVal pStringToExec As Long, _
ByVal Unknownn1 As Long, _
ByVal Unknownn2 As Long, _
ByVal fCheckOnly As Long) As Long

Private Sub Form_Load()
EbExecuteLine StrPtr("dim a as long,b as long,c as long"), 0, 0, 0
EbExecuteLine StrPtr("a=" & 3), 0, 0, 0
EbExecuteLine StrPtr("b=" & 5), 0, 0, 0
EbExecuteLine StrPtr("c=" & 2), 0, 0, 0
EbExecuteLine StrPtr("clipboard.settext (a+b)/c"), 0, 0, 0
MsgBox Clipboard.GetText
End Sub

[jameschan]

非常感谢上面两位朋友给我详细例程。