Nabídky sestrojené v kódu
V předchozím oddílu jste viděli dvě varianty řešení místní nabídky: vizuálně a její přímý zápis v kódu.
Podobně můžete volit vizuální nebo programové řešení i pro pruh běžných nabídek s podřízenými a kaskádovými
nabídkami.
1. Na začátek třídy formuláře přidejte příkaz:
Private MainMenu2 As MainMenu
2. Pak definujte novou instanci objektu hlavní nabídky a přiřaďte objekt nabídky formuláři:
MainMenu2 = New MainMenu()
Me.Menu = MainMenu2
3. Definujte prvky nabídky v pruhu nabídek:
Dim mnu2Akce As New MenuItem()
Dim mnu2Přizpůsobit As New MenuItem()
Dim mnu2Nápověda As New MenuItem()