カスタムメニュー
2008年9月20日（土曜日） これは、私たちは、このメニューだけで開いているフォームを必要とするので、開いているフォームの面で時間、コードの行数と優れた配置を保存することができますメニューのようなものです。 開いているフォームの数を減らすことに加えて、各フォームを開くには、メニュー内のボタンの数が減少します。
メニューのこのタイプは、確かにしばらくの間存在していると、すでにアクセスの多くのユーザーによって使用されます。
したがって、このメニューはどこにあるのでしょうか？
我々はそれを介して開くために計画しているすべてのフォームを含むコンボボックスを使用してメニューを作成してみましょう。 コンボボックスからオプションを選択すると、アプリケーションのフォームがサブフォーム内に表示されます。 その後、我々はステップバイステップのメニューを作るために開始します。
1 - 私たちが開きますフォームの各フォームと名前を付けた名前を格納するテーブルを作成してみましょう。 例では、私には、次のフィールドを持つテーブル 'tblmenu "を作成しました。
フィールドタイプ
Nomedomenuテキスト - メニューに表示されます>名前（コンボボックス）
フォームのテキスト - 開きますフォームの>名前
後の例で導入されたデータは、次のとおりです。
NomedoMenuフォーム
アカウントをForm1
預金Form2の
動きformulario3
アカウント·ボックスformulario4
アカウント - アカウントformulario5
抽出formulario6
2 - 次に、前のテーブルからクエリを作成します。
Tblmenuは、テーブルを選択し、次に我々はメニューを我々は、フォームを開こうとするかなりの数を見つけやすいようにソートnomedomenu昇順のために選んだその内の2つのフィールドを選択します。 このクエリに私がCsMenu "と呼ばれる。
3 - のフォーム "メニュー"を作成してみましょう。つまり、デザインビューで新しいフォームを選択します。 次に、コンボボックスを作成し、次のプロパティを変更します。
- 列数：2
- 列の幅は1cm、0センチメートル。
- 線の起源：csmenu（前の段落で作成したクエリの名前である）
4 - 同じ形式では（私はmenuquadroと呼ばれる例では）非連結メインフォームのサブフォームを作成します。 それは、フォームの各メニュー（コンボボックス）から選択する開くされるこの形式です。
5 - 今私たちがサブフォーム内のコンボボックスで選択されているメニューを開くことができますモジュールを作成します。
我々は、モジュールを作成し（私は "abrirmenu"と呼ばれる）と、次のコードを貼り付け：
パブリック関数AtivarMenu（Combmenuコンボボックス、サブフォームsubabrir）
文字列名As Abrirform
=（1）Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
エンド機能
ativarmenu =（[メニュー]、[menuquadro]） 'メニュー'コンボボックスの名前と "menuquadro 'であること：フォーム]メニューの[コンボボックスのプロパティとUpdateイベント後に作成された関数置くに入った後サブフォームの名前。
そして最後にメニューが使用できるようになります。 ちょうど試してみて使用します。 私はこの先端を楽しんだことを望みます。
ダウンロード： メニュー
メニューの写真を下に。
カスタムメニュー
