Foxtable(狐表)用户栏目专家坐堂 → [求助]动态生成的菜单,无法执行代码


  共有742人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
xndd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
[求助]动态生成的菜单,无法执行代码  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111408 积分:567110 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/15 13:51:00 [只看该作者]

调试

msgbox(Args(0))
Select Case Args(0)
    Case "关于"  
msgbox(1)
        Forms("关于窗口").Show() 
msgbox(2)

 回到顶部
帅哥哟,离线,有人找我吗?
xndd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2024/11/15 14:01:00 [只看该作者]

调试代码也完全没反应。
我是发布后这样的。没有发布,在窗口按钮里面测试,正常
[此贴子已经被作者于2024/11/15 14:02:01编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111408 积分:567110 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/15 14:08:00 [只看该作者]

菜单事件调试

msgbox(e.Sender.Text)
Functions.Execute("BTNFUN",e.Sender.Text)
msgbox(10)

 回到顶部
帅哥哟,离线,有人找我吗?
xndd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2024/11/15 14:11:00 [只看该作者]

发布后一样,点击按钮没反应。
但是在窗口按钮里面这样: Functions.Execute("BTNFUN","关于") 
会弹窗 关于   1   窗口   2 
这样子

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111408 积分:567110 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/15 14:14:00 [只看该作者]

新建一个项目测试有没有问题?

 回到顶部
帅哥哟,离线,有人找我吗?
xndd
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2024/11/15 14:34:00 [只看该作者]

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip



 回到顶部
帅哥哟,离线,有人找我吗?
xndd
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2024/11/15 14:39:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111408 积分:567110 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/15 14:41:00 [只看该作者]

随便添加一个自定义菜单

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip



 回到顶部
帅哥哟,离线,有人找我吗?
xndd
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4465 威望:0 精华:0 注册:2014/11/26 15:23:00
  发帖心情 Post By:2024/11/15 14:45:00 [只看该作者]

手工创建的可以。动态生成的菜单不可以
那这样的话,动态生成的菜单就是不可以执行代码了吗?

 回到顶部
总数 17 1 2 下一页