Meniu personalizat
Sâmbătă douăzeci/9/2008 Aceasta este un fel de meniu care ne permite să economisi timp, de linii de cod şi un aranjament mai bun în termeni de forme deschise, deoarece cu acest meniu nevoie doar de o formă deschisă. În plus faţă de reducerea numărului de formulare deschise, de asemenea, scade numărul de butoane într-un meniu pentru a deschide fiecare formular.
Acest tip de meniu, cu siguranţă că a existat de ceva timp si este deja utilizat de către mai mulţi utilizatori de acces.
Deci, unde este acest meniu?
Să creăm meniu utilizând o casetă combo care conţine toate formele pe care le propunem pentru a deschide prin ea. Când selectaţi o opţiune din caseta combo formularul de cerere este afişată în subformular. Apoi, vom începe să facă pas cu pas meniul.
1 - Să creăm un tabel în cazul în care vom păstra numele pe care doriţi să dea fiecare formă şi numele de forma în care se va deschide. În exemplul am creat "tblmenu", tabelul cu următoarele domenii:
Tip de câmp
Textul Nomedomenu -> numele care va fi văzut în meniul (combo box)
sub formă de text -> Nume de forma în care se va deschide
După datele introduse în de exemplu, sunt:
NomedoMenu Formular
Conturi Form1
Depozite Form2
Mişcările formulario3
Contul-Box formulario4
De cont cont formulario5
Extras formulario6
2 - Apoi, vom crea o interogare de la tabelul anterior:
Tblmenu ales masă şi apoi alegeţi cele două domenii în care am ales pentru ascendentă nomedomenu de sortare pentru a fi mai uşor de a găsi în meniul de câteva ori atunci când doriţi să le deschideţi forme. Pentru această interogare am numit "CsMenu".
3 - Să creeze "Meniu" forma, adică alege forma nouă în vizualizarea Proiectare. Apoi, vom crea o casetă combo şi să modificaţi următoarele proprietăţi:
- Numărul de coloane: 2
- Latime: 1cm coloană, 0cm;
- Originea linie: csmenu (care este numele de interogare a creat în paragraful anterior)
4 - În aceeaşi formă, vom crea un formular nelegat subformular principal (In exemplul am chemat menuquadro). Este acest formular care va fi deschis în fiecare din următoarele forme de a alege din meniu (caseta combo).
5 - Acum, creaţi un modul care ne va permite pentru a deschide meniul, care este selectat în caseta combo în subformular.
Am creat un modul (pe care am numit "abrirmenu") şi lipit codul de mai jos:
AtivarMenu Funcţia publică (Combmenu ComboBox, subabrir subformular)
Abrirform Ca String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Sfârşit Funcţia
După ce la proprietatile caseta combo pe meniul de forma şi după un eveniment de actualizare puse creat funcţia de: ativarmenu = ([Menu], [menuquadro]), că "Meniu" este numele de caseta combo şi "menuquadro" Numele de subformular.
Şi în final meniul este gata de utilizare. Doar încercaţi şi de a folosi. Sper ca ti-a placut acest sfat.
Download: Meniu
Mai jos o imagine a meniului.
Meniu personalizat
