Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态生成菜单


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

主题：动态生成菜单
帅哥哟，离线，有人找我吗？
hfapplehao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：2143 威望：0 精华：0 注册：2018/3/30 19:56:00 		动态生成菜单  发帖心情 Post By：2022/2/16 17:04:00 [显示全部帖子]

看论坛中有动态生成菜单的样本，于是看了看代码，发现有一个函数运行老是错误。估计是因为新版本取消code的原因吧
现在的版本没有编译函数了，如果这个函数写成内部函数，应该怎么写啊？我写了好多次，老是提示各种错误，快崩溃了
求老师指点一二 
'编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"
            
            Functions.Add("CreateMenu", Code)
            Functions.Complie()
 回到顶部
帅哥哟，离线，有人找我吗？
hfapplehao
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：2143 威望：0 精华：0 注册：2018/3/30 19:56:00 		  发帖心情 Post By：2022/2/16 19:03:00 [显示全部帖子]

源文件是这个,运行的时候就会报错.应该是编译函数的问题?
总体思路就是想用代码来创建 功能区,功能组,以及功能组下的菜单.
功能组和功能区的思路找到了,就运行到创建功能菜单出问题了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生成菜单.rar
 回到顶部
帅哥哟，离线，有人找我吗？
hfapplehao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：2143 威望：0 精华：0 注册：2018/3/30 19:56:00 		  发帖心情 Post By：2022/2/17 9:04:00 [显示全部帖子]

16楼附件.foxdb格式的 打不开呀，老师可否把代码发过来我参考一下
十分感谢
 回到顶部
帅哥哟，离线，有人找我吗？
hfapplehao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：2143 威望：0 精华：0 注册：2018/3/30 19:56:00 		  发帖心情 Post By：2022/2/17 14:51:00 [显示全部帖子]

附件收到，代码学习到了。 但是运行起来会出错啊

打开的时候会提示未知编译错误

打开后出来一个界面，单击，运行没问题
 但是如果恢复到系统窗口
图片点击可在新窗口打开查看此主题相关图片如下：错误提示.png
图片点击可在新窗口打开查看
后，再应用窗口，单击就会跳出一个框框无限死循环。截图如下。这个问题有解决方法吗？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 6 次数据查询