cool web a perfektni rs- Doporucuji

Thursday, August 02, 2007

Přiřaďte zobrazované texty

prvkům v pruhu nabídek včetně případných přístupových kláves:
mnu2Akce.Text = "&Akce"
mnu2Přizpůsobit.Text = "&Přizpůsobit"
mnu2Nápověda.Text = "&Nápověda"
5. Metodou Add přidejte tyto prvky pruhu nabídek do kolekce MenuItems objektu MainMenu2:
MainMenu2.MenuItems.Add(mnu2Akce)
MainMenu2.MenuItems.Add(mnu2Přizpůsobit)
MainMenu2.MenuItems.Add(mnu2Nápověda)
6. Definujte prvky nabídky pro první rozvírací nabídku, včetně oddělovače, jímž chcete od ostatních
prvků izolovat příkaz pro ukončení aplikace:
Dim mnu2ItemRoztočit As New MenuItem()
Dim mnu2ItemVypsatStav As New MenuItem()
Dim mnu2ItemDodatPrachy As New MenuItem()
Dim mnu2ItemOddělovač1 As New MenuItem()
Dim mnu2ItemKonec As New MenuItem()
7. Přiřaďte zobrazované texty včetně přístupových kláves, klávesových zkratek, případně nastavte
další potřebné vlastnosti prvků nabídky:
mnu2ItemRoztočit.Text = "&Roztočit"
mnu2ItemVypsatStav.Text = "Vyp&sat stav"
mnu2ItemDodatPrachy.Text = "&Dodat další prachy"
mnu2ItemOddělovač1.Text = "-"
mnu2ItemKonec.Text = "&Konec"
mnu2ItemKonec.Shortcut = System.WinForms.Shortcut.AltF4

Labels: