自定義菜單
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”後子窗體的名稱。
和最後的菜單已準備就緒。 剛剛嘗試和使用。 我希望你喜歡這個技巧。
下載： 菜單
下面的菜單上的圖片。
自定義菜單
