[浏览完整版]
标题：[求助]动态生成的菜单，无法执行代码
1楼
xndd 发表于：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也不行
2楼
有点蓝 发表于：2024/11/15 13:51:00调试
msgbox(Args(0))
Select Case Args(0)
Case "关于"
msgbox(1)
Forms("关于窗口").Show()
msgbox(2)
3楼
xndd 发表于：2024/11/15 14:01:00调试代码也完全没反应。
我是发布后这样的。没有发布，在窗口按钮里面测试，正常
[此贴子已经被作者于2024/11/15 14:02:01编辑过]
4楼
有点蓝 发表于：2024/11/15 14:08:00菜单事件调试
msgbox(e.Sender.Text)
Functions.Execute("BTNFUN",e.Sender.Text)
msgbox(10)
5楼
xndd 发表于：2024/11/15 14:11:00发布后一样，点击按钮没反应。
但是在窗口按钮里面这样： Functions.Execute("BTNFUN","关于")
会弹窗 关于 1 窗口 2
这样子
6楼
有点蓝 发表于：2024/11/15 14:14:00新建一个项目测试有没有问题？
7楼
xndd 发表于：2024/11/15 14:34:00为什么我新建的项目，发布后连菜单都没了，老师帮我看看
8楼
xndd 发表于：2024/11/15 14:39:00我不应该加判断管理员部分，忘记删了
9楼
有点蓝 发表于：2024/11/15 14:41:00随便添加一个自定义菜单
10楼
xndd 发表于：2024/11/15 14:45:00手工创建的可以。动态生成的菜单不可以
那这样的话，动态生成的菜单就是不可以执行代码了吗？