16,554
社区成员
发帖
与我相关
我的任务
分享可以实现动态执行函数吗？
dim myStrFunction as String
myStrFunction ="ExeFunction2()"
private function ExeFunction2() as short
.....
end function
我怎么执行myStrFunction这个变量？ 像javascript中的eval这样的函数
myStrFunction ="ExeFunction2()"
private function ExeFunction2() as short
.....
end function
我怎么执行myStrFunction这个变量？ 像javascript中的eval这样的函数
...全文
请发表友善的回复…
发表回复
kissnono 2005-07-14
- 打赏
- 举报
你说的是反射吧
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim d As MethodInfo = GetType(Form1).GetMethod("Form1_Load", BindingFlags.Instance Or BindingFlags.NonPublic)
d.Invoke(Me, New Object() {Me, New EventArgs})
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim d As MethodInfo = GetType(Form1).GetMethod("Form1_Load", BindingFlags.Instance Or BindingFlags.NonPublic)
d.Invoke(Me, New Object() {Me, New EventArgs})
End Sub
