- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态生成菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175025)
-- 发布时间：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()
-- 发布时间：2022/2/16 17:33:00
--
内部函数写了什么代码？提示什么错误？
-- 发布时间：2022/2/16 19:03:00
--
源文件是这个,运行的时候就会报错.应该是编译函数的问题?
总体思路就是想用代码来创建 功能区,功能组,以及功能组下的菜单.
功能组和功能区的思路找到了,就运行到创建功能菜单出问题了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成菜单.rar |
-- 发布时间：2022/2/17 8:49:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173791&authorid=0&page=0&star=2
看16楼项目
-- 发布时间：2022/2/17 9:04:00
--
16楼附件.foxdb格式的 打不开呀，老师可否把代码发过来我参考一下
十分感谢
-- 发布时间：2022/2/17 9:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成菜单 (4).zip |
-- 发布时间：2022/2/17 14:51:00
--
附件收到，代码学习到了。 但是运行起来会出错啊
打开的时候会提示未知编译错误
打开后出来一个界面，单击，运行没问题
但是如果恢复到系统窗口
此主题相关图片如下：错误提示.png
后，再应用窗口，单击就会跳出一个框框无限死循环。截图如下。这个问题有解决方法吗？
此主题相关图片如下：错误提示.png后，再应用窗口，单击就会跳出一个框框无限死循环。截图如下。这个问题有解决方法吗？
-- 发布时间：2022/2/17 14:54:00
--
设计自己的菜单，不要在系统菜单模式下测试