Vlastní menu
Sobota 20 září 2008 To je druh nabídky, které nám umožňuje ušetřit čas, řádky kódu a lepší uspořádání z hlediska otevřených formách, protože se tato nabídka právě potřebují otevřenou formu. Kromě snížení počtu otevřených formulářů také snižuje počet tlačítek v menu otevřít každý formulář.
Tento typ nabídky, jistě, který již nějakou dobu a je již používán mnoha uživateli aplikace Access.
Tak kde je tato nabídka?
Pojďme vytvořit menu pomocí pole se seznamem, který obsahuje všechny formuláře, které plánujeme otevřít přes něj. Když vyberete možnost z pole se seznamem se zobrazí formulář žádosti v rámci podformuláře. Pak jsme začali dělat v menu krok za krokem.
1 - Pojďme vytvořit tabulku, kde budeme ukládat název, který chcete, aby každý formulář a název formuláře, který se otevře. V příkladu jsem vytvořil Tabulka 'tblmenu' s následujících oblastech:
Typ pole
Nomedomenu text -> Jméno, které bude vidět v menu (combo box)
tvoří text -> název formuláře, který se otevře
Po údaje zavedené v příkladu jsou:
NomedoMenu formulář
Účty Form1
Vklady Form2
Pohyby formulario3
Účet-Box formulario4
Účtu Účet formulario5
Výpis formulario6
2 - Pak jsme se vytvořit dotaz z předchozí tabulky:
Tblmenu zvolil tabulku a pak vybrat dvě pole, ve kterém jsme si vybrali pro vzestupné řazení nomedomenu být snadnější najít v nabídce docela několikrát, když chceme otevřít formuláře. Chcete-li tento dotaz jsem volal "CsMenu".
3 - Pojďme vytvořit formulář 'Menu', tj. vybrat nový formulář v návrhovém zobrazení. Pak jsme se vytvořit pole se seznamem a změnit následující vlastnosti:
- Počet sloupců: 2
- Sloupec Šířky: 1cm, 0cm;
- Původ linie: csmenu (což je název dotazu vytvořili v předchozím odstavci)
4 - ve stejné formě budeme vytvářet nevázaný hlavního formuláře podformulář (V příkladu jsem volal menuquadro). Je to forma, která bude otevírat každou z forem vybrat z menu (rozbalovací seznam).
5 - Nyní vytvořte modul, který nám umožní otevření nabídky, která je vybrána v poli se seznamem v podformuláře.
Vytvořili jsme modul (který jsem nazval "abrirmenu") a vložit následující kód:
Public Function AtivarMenu (Combmenu ComboBox, subabrir podformulář)
As String Dim Abrirform
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Poté, co do vlastností pole se seznamem V nabídce formuláře a po aktualizaci případě uvedených vytvořena funkce: ativarmenu = ([Menu], [menuquadro]), že "Menu" je název pole se seznamem a "menuquadro" Název podformuláře.
A na závěr menu je připraven k použití. Stačí vyzkoušet a používat. Doufám, že se vám to líbilo tento tip.
Download: Menu
Pod obrazem v nabídce.
Vlastní menu
