[求助]动态生成的菜单，无法执行代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我新建一个项目，菜单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

dvubb 此主题相关图片如下：111.png

关于，但是代码不生效，点击关于按钮没反应。删bin也没用，太奇怪了！

以前从来不会，直接套用就好的！help!

e.Sender.Text改成e.Sender.Name也不行

调试代码也完全没反应。

我是发布后这样的。没有发布，在窗口按钮里面测试，正常

[此贴子已经被作者于2024/11/15 14:02:01编辑过]

发布后一样，点击按钮没反应。

但是在窗口按钮里面这样： Functions.Execute("BTNFUN","关于")

会弹窗关于 1 窗口 2

这样子

为什么我新建的项目，发布后连菜单都没了，老师帮我看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

我不应该加判断管理员部分，忘记删了

手工创建的可以。动态生成的菜单不可以

那这样的话，动态生成的菜单就是不可以执行代码了吗？

我再重新建一个吧，唉，感觉新版本特别不稳定。

我重新建一个，还是不行，真的服了

我连了外部数据库，没关系，可以不用。菜单表我放在内部数据源了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:鑫森炭业数据中心管理平台.zip

主题：[求助]动态生成的菜单，无法执行代码