[求助] 怎么能得到这样的多层菜单呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、项目的层级比较多，希望得到下面这样的菜单，怎么实现呢？

二、希望得到的菜单

1、点击 “按钮1”，得到一个菜单/或者的面板（不用管背景的颜色）：

此主题相关图片如下：多层菜单的实现_1.png

2、要求这个菜单面板中的每一个按钮，还都能有个几层的下拉菜单（这个是重点！）。

类似这样的：

此主题相关图片如下：多层菜单的实现_2.png

下载的 “按钮菜单”，怎么打不开，说是非开发版文件？

论坛里有不少可下载的东西，但是之前下载之后，都说是不能打开非开发版的文件而不能进入。

我们用的是永久高级开发版的，按理说应该有最高级别的权限和功能，能打开更多的文件类型。

请教大侠们，怎么能解决它呢？

此主题相关图片如下：多层菜单的实现_3.png

一台电脑装两个版本的FT，不会有干扰吧？

请教一下：

在窗口中，有没有像菜单中的“菜单按钮”那样的控件？查了半天，没查到。

通过窗口设计，解决了 1楼中，第一张图的布局。

并且，通过快捷菜单，解决了点击“按钮2”之后的下拉菜单。

但是现在又有了另外一个问题：

由于分类的复杂和多级，在不同的窗口，需要有几百个、甚至上千个“按钮2”。

如果每个“按钮2”都配一个快捷菜单，工作量太大，而且这么多的快捷菜单，在菜单里也不好管理。

有时，“按钮2”之后的分类只有几个，而且只有一级,为了它再去设计一个快捷菜单，很不值。

所以，如果在窗口中，有像菜单中的“菜单按钮”那样的控件就好了，点击后直接出来一个下拉菜单，简单省事！

每个“按钮2”的菜单都不相同，所以无法共用。

唉，苦啊！

真要做几百个、甚至上千个按钮的快捷菜单了图片点击可在新窗口打开查看

更苦的是，在菜单设计中的快捷菜单项下，要怎么管理这上千的快捷菜单呢？图片点击可在新窗口打开查看

嗯研究一下

谢谢啦！

嗯是做一个下面这样的管理表吗？

“ 点击按钮的时候根据按钮名称到表查询出这个按钮的菜单，然后动态生成，再打开 ”，具体要怎么操作呢？

还是没有太多的概念。

蓝老师能讲的再详细一点吗？

能给出一段代码吗？

此主题相关图片如下：快捷菜单管理表.png

一、先请教一下思路

是说把需要的这些成百上千的快捷菜单（每个快捷菜单都不相同），分别制成自定义函数吗？

然后，把这些自定义函数，再分别保存在 13楼表中的 “快捷菜单” 列中（列名改成 “自定义函数”）？

使用的时候，用 Find 根据按钮的名称找到相应自定义函数所在的行，再用 Functions.Execute 来分别执行这些自定义函数？

二、再请教一下方法：

怎么制作快捷菜单的自定义函数呢？

用内部函数编辑器，应该能够制作自定义函数。

但是，怎么用代码表现快捷菜单（含子菜单）呢？希望能给出一段示例代码。

三、最后再问一个问题

动态管理函数中，给出了下面的示例，用代码定义的Sum函数。

不太理解的是，这个函数放到哪里，“就可以在其余地方调用此函数” 了呢？

内部函数是在内部函数编译器中制作的，制作好的函数，应该就保存在内部函数编译器里了。

但是，这里用代码定义了的函数，放到哪里了呢？

附上示例：

示例

下面的代码定义了一个简单的Sum函数：

Dim Code As string
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Dim Val2 As Integer = 2" & vbcrlf
Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code = Code & "Return Sum"
Functions.Add("Sum",Code)
Functions.Complie()

这样我们就可以在其余地方调用此函数：

Functions.Execute("Sum")

主题：[求助] 怎么能得到这样的多层菜单呢？