- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]动态生成的菜单，无法执行代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194180)
-- 发布时间：2024/11/15 13:50:00
-- [求助]动态生成的菜单，无法执行代码
我新建一个项目，菜单click里放：Functions.Execute("BTNFUN",e.Sender.Text)
然后新建BTNFUN函数，里面
Select Case Args(0)，
Case "关于"
Forms("关于窗口").Show()
动态生成菜单
For Each dr As DataRow In drs
If dr("项类型") = "RibbonMenu.Separator" Then
Dim rb As New RibbonMenu.Separator(dr("功能项"))
RibbonTabs(dr("功能区")).Groups(dr("功能组")).Items.Add(rb)
Else
Dim rb As New RibbonMenu.Button(dr("功能项"))
rb.Text = dr("功能项")
rb.LargeImage = GetImage(ProjectPath & "Images\\" & dr("图标"))
rb.TextImageRelation = TextImageRelationEnum.ImageAboveText
RibbonTabs(dr("功能区")).Groups(dr("功能组")).Items.Add(rb)
End If
Next
此主题相关图片如下：111.png
关于，但是代码不生效，点击关于按钮没反应。删bin也没用，太奇怪了！
以前从来不会，直接套用就好的！help!
e.Sender.Text改成e.Sender.Name也不行
-- 发布时间：2024/11/15 13:51:00
--
调试
msgbox(Args(0))
Select Case Args(0)
Case "关于"
msgbox(1)
Forms("关于窗口").Show()
msgbox(2)
-- 发布时间：2024/11/15 14:01:00
--
调试代码也完全没反应。
我是发布后这样的。没有发布，在窗口按钮里面测试，正常
[此贴子已经被作者于2024/11/15 14:02:01编辑过]
-- 发布时间：2024/11/15 14:08:00
--
菜单事件调试
msgbox(e.Sender.Text)
Functions.Execute("BTNFUN",e.Sender.Text)
msgbox(10)
-- 发布时间：2024/11/15 14:11:00
--
发布后一样，点击按钮没反应。
但是在窗口按钮里面这样： Functions.Execute("BTNFUN","关于")
会弹窗 关于 1 窗口 2
这样子
-- 发布时间：2024/11/15 14:14:00
--
新建一个项目测试有没有问题？
-- 发布时间：2024/11/15 14:34:00
--
为什么我新建的项目，发布后连菜单都没了，老师帮我看看
-- 发布时间：2024/11/15 14:39:00
--
我不应该加判断管理员部分，忘记删了
-- 发布时间：2024/11/15 14:41:00
--
随便添加一个自定义菜单
-- 发布时间：2024/11/15 14:45:00
--
手工创建的可以。动态生成的菜单不可以
那这样的话，动态生成的菜单就是不可以执行代码了吗？