主题：[求助]动态编译函数问题

变通处理下吧，将就还是可以用的。

计划1

If ShowAppWindow("错误",1) Then
    ShowAppWindow("错误",5)
    vars("成功") = False
    MyTimers("计划1").Enabled = False
End If

调试代码

vars("成功") = True
Dim fun As String =  "test"
Functions.Remove(fun)
Dim Code As String = "dim 123 as string = 123"
Functions.Add(fun, Code)
MyTimers("计划1").Enabled = True
Functions.Complie()
MyTimers("计划1").Enabled = False
msgbox(vars("成功"))

Remove掉

Functions.Remove("aaa")
Functions.Remove("bbb")
Dim Code As String = "dim 123 as string = 123"
Functions.Add("aaa", Code)
Functions.Complie()
Functions.Remove("aaa")
code = "dim abc as string = 123"
functions.Add("bbb", Code)
Functions.Complie()