自定义菜单
2008年9月20日，星期六， 这是一个菜单，让我们节省时间，行代码和一个更好的安排，在公开形式方面，因为这个菜单只需要一个开放的形式，。 此外，以减少开放形式的数量也减少了在菜单中打开每个表单的按钮。
这种类型的菜单，肯定已经存在了一段时间，已经被许多用户访问使用。
那么，这是菜单？
让我们创建一个组合框，包含了所有的形式，我们计划通过它打开菜单使用。 从组合框中选择一个选项当你的申请表将显示在窗体。 然后，我们开始菜单一步一步。
1 - 让我们创建一个表，我们将其中存储的名称，你想给每个形式和名称的形式，将打开。 在这个例子中，我创建表以下领域tblmenu：
字段类型
nomedomenu文本 - >名称将在菜单上看到的（组合框）
形成文字 - >名称的形式，将打开
后的例子介绍了数据：
NomedoMenu表
帐户Form1中
存款Form2的
运动formulario3
帐户盒formulario4
帐户的帐户formulario5
提取formulario6
2 - 然后，我们创建了一个从上表的查询：
tblmenu选择表，然后选择这两个领域中，我们选择了升序排序nomedomenu更容易找到菜单相当几次，当我们要打开的形式。 此查询，我叫'CsMenu“。
3 - 让我们创建“菜单”的形式，即在设计视图中选择新的形式。 然后我们创建一个组合框，并更改以下属性：
- 列数：2
- 列宽1厘米，0厘米;
- 原产地行：csmenu（这是在前段创建查询的名称）
4 - 在相同的形式，我们将创建一个未绑定的主窗体的窗体（在这个例子中，我叫menuquadro）。 正是这种形式，将打开形式，每年选择菜单（组合框）。
5 - 现在创建一个模块，它将使我们能够打开选定的菜单，在子窗体中的组合框。
我们创建一个模块（我称之为“abrirmenu）和粘贴下面的代码：
公共的功能AtivarMenu（Combmenu ComboBox中，subabrir子窗体）
作为字符串暗淡Abrirform
= abrirform Combmenu.Column（1）
subabrir.SourceObject = abrirform
subabrir.LinkChildFields =“”
subabrir.LinkMasterFields =“”
函数结束
要形式菜单上的组合框的属性和更新事件后创建的功能：ativarmenu =（[菜单]，[menuquadro]）'菜单'是组合框的名称和“menuquadro”后子窗体的名称。
和最后的菜单已准备就绪。 刚刚尝试和使用。 我希望你喜欢这个技巧。
下载： 菜单
下面的菜单上的图片。
自定义菜单
