不能直接用,要动态编译一下。
类似 http://www.foxtable.com/help/topics/1487.htm
Dim Code As StringCode = "Dim t As " & "ControlTypeEnum" & vbcrlfCode = Code & "return t"Functions.Add("getType",Code)Functions.Complie()
Dim b As object = Functions.Execute("getType")Functions.Remove("getType")
For Each e As String In [Enum].GetNames(b.Gettype()) output.show(e)Next