测试了下,可行。
httpRequest事件
Functions.Execute("test", e)
做个窗口动态编译函数
Functions.remove("test")
Dim Code As String
Code = e.Form.controls("Textbox1").text
Functions.Add("test",Code)
Functions.Complie()
Functions.Execute("test")
AfterOpenProject执行代码,弄一个空白的函数
Functions.remove("test")
Dim Code As String
Code = ""
Functions.Add("test",Code)
Functions.Complie()