Персонализираното меню
Събота, 20 септември, 2008 Това е един вид меню, което ни позволява да спестите време, реда код и по-добро устройство по отношение на откритите форми, тъй като с това меню, просто трябва отворена форма. В допълнение към намаляване на броя на откритите форми също намалява броя на бутони в менюто, за да отворите всеки формуляр.
Този вид меню, разбира се съществува за известно време и вече се използва от много потребители за достъп.
Е, къде е това меню?
Нека създадем менюто, като използвате комбо кутия, която съдържа всички формуляри, които ние планираме да се отвори през него. Когато изберете опция от падащ списък се показва формуляра за кандидатстване в рамките на подформуляра. Тогава ще започнат да се направи в менюто стъпка по стъпка.
1 - Да създадем таблица, където ще се съхранява името, което искате да дадете всеки формуляр и името на формата, която ще се отвори. В примера съм създал "tblmenu" таблица със следните полета:
Тип на полето
Nomedomenu текст -> име, което ще се види в менюто (комбинирано поле)
образуват текст -> Наименование на формата, който ще отвори
След данните, въведени в примера са:
NomedoMenu Форма
Сметки Form1
Депозити Form2
Движенията formulario3
Профил Box formulario4
Профил акаунт formulario5
Извадка formulario6
2 - Тогава ние създаваме една заявка от предишната таблица:
Tblmenu избра масата и след това изберете двете области, в които сме избрали за възходяща на сортиране nomedomenu да бъде лесно да намерите в менюто съвсем няколко пъти, когато искаме да се отвори форми. За тази заявка, наречен "CsMenu".
3 - Нека създадем форма "Меню", т.е. изберете нова форма в режим на проектиране. Тогава ние създаваме една кутия комбо и променете следните свойства:
- Брой колони: 2
- Ширината на колоните: 1 см, 0cm;
- Произход на линия: csmenu, (което е името на заявката, създадена в предходния параграф)
4 - в същата форма, ние ще създадем подформуляра един несвързан основна форма (В примера наречен menuquadro). Тя е тази форма, която ще бъде отворите всяка от формите, за да изберете от менюто (комбо кутия).
5 - Сега се създаде модул, който ще ни даде възможност за отваряне на менюто, който е избран от падащия списък в подформуляра.
Ние създадохме един модул (което аз, наречен "abrirmenu") и да се постави следния код:
Публична функция AtivarMenu (Combmenu падащо меню, subabrir на подформуляра)
Abrirform Като String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
След като ще свойства на комбинираното поле в менюто формата и След актуализация събитие поставят длъжност: ativarmenu = ([MENU], [menuquadro]), че "Меню" е името на комбинираното поле и "menuquadro" име на подформуляра.
И накрая в менюто е готов за употреба. Просто се опитай и да използвате. Надявам се ползва този съвет.
Изтегли: меню
Под снимка на менюто.
Персонализираното меню
