我想将一个字符串作为VB代码执行，怎样做？

来源：百度知道 编辑：UC知道 时间：2024/05/16 17:56:35
假如“Print "kkk"”在标签里，我怎样提取他为VB代码并执行？

看这里
http://topic.csdn.net/t/20040705/11/3146251.html

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 Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Form_Load()
Dim aa As String
aa = "msgbox 2"
ExecuteLine aa
End Sub

经测试，未编译成exe前是可以的，编译后就。。。。。

自己编写解释引擎~~~~~~汗一个-_-#

只能这样..

很汗！！