以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]菜单执行函数的例子  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72372)
--  作者：blsu33
--  发布时间：2015/7/29 11:48:00
--  [求助]菜单执行函数的例子
红袍老师，
   动态菜单，全局代码如下

Public Sub menu_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim dr As DataRow=DataTables("菜单列表").Find("编码规则=\'"& sender.Name &"\'")
Dim ck As WinForm.Form =Forms(dr("打开窗口"))
ck.Open
End Sub


我想把代码移动到表中 
怎么呢能定义成函数呢 帮助文档没有看明白 求老师给演示一下
--  作者：大红袍
--  发布时间：2015/7/29 11:55:00
--  

不需要动态编译，弄一个内部函数 处理菜单

 

Dim sender = args(0)

Dim dr As DataRow=DataTables("菜单列表").Find("编码规则=\'"& sender.Name &"\'")
Dim ck As WinForm.Form =Forms(dr("打开窗口"))
ck.Open

 

 然后全局代码这样写

 

Public Sub menu_Click(ByVal sender As Object, ByVal e As EventArgs)
    Functions.Execute("处理菜单", sender)
End Sub