| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]动态函数使用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150920) |
| -- 作者：xongyijd -- 发布时间：2020/6/10 23:24:00 -- [求助]动态函数使用 那位大师帮助我修改一下,实在写不好了,动态函数套在自定义函数中,代码保存在表中,代码中引用事件的e参数,比喻在表中写e.Forms.Close()显示未找到类型“StripItemEventArgs”的公共成员“Forms”而直接在函数中写能正常执行,这是什么原因? 代码如下: Dim e As object = args(0) Dim Code As String = "Dim e As object = args(0)" & vbcrlfDim dr As DataRow = DataTables("菜单控件").Find("名称 = \'" & e.StripItem.Name & "\'And 父级 = \'工具栏1\'") If dr IsNot Nothing Then Code = Code & dr("执行代码") & vbcrlf Functions.Remove("ExecuteMenu") Functions.Add("ExecuteMenu", Code) Functions.Complie() Functions.Execute("ExecuteMenu",e) End If |
| -- 作者：有点蓝 -- 发布时间：2020/6/11 8:41:00 -- 请给出相关的前后文，比如dr("执行代码")里是什么代码？上面的代码又是在哪里调用的，使用了什么代码调用？ 控件的e参数只有form属性，没有forms属性
|
| -- 作者：xongyijd -- 发布时间：2020/6/11 21:03:00 -- 已经搞好了,还是我的逻辑思维没有考虑清楚, |