VB.NET - Menu Shortcuts

[Brano]

Hi all,

I have this problem I have a menu structure in my VB.NET application
that is about 4 levels deep. I need an CTRL+key access to the 3rd
level so that if user press CTRL+key the 3rd menu rolls out

The standart code :

myMenuItem.Shor tcut = Shortcut.CtrlA

does not work it only works for the final item in the menu that has an
event handler but this is what I need to do...

Anybody any suggestions?

[Lucvdv]

On 2 Sep 2004 01:52:04 -0700, pa***@pobox.sk (Brano) wrote:

Hi all,

I have this problem I have a menu structure in my VB.NET application
that is about 4 levels deep. I need an CTRL+key access to the 3rd
level so that if user press CTRL+key the 3rd menu rolls out

The standart code :

myMenuItem.Shor tcut = Shortcut.CtrlA

does not work it only works for the final item in the menu that has an
event handler but this is what I need to do...

Anybody any suggestions?

AFAIK a main menu cannot be opened directly from code (though SendKeys
might help, or you could send windows messages simuating mouse clicks), but
you can clone the submenu you want to open into a context menu.

It's not as pretty a solution as opening the real thing, as the
higher-level menus aren't shown.

Suppose the submenu you want to open is called mnuX, and you want to assign
key F8 to it. Instead of setting F8 as shortcut key, set the form's
KeyPreview property to True, and code it like this:

Private Sub Form1_KeyDown(B yVal sender As Object, ....
If e.KeyCode = Keys.F8 Then
Dim cx As New ContextMenu
For Each mi As MenuItem In mnuX.MenuItems
cx.MenuItems.Ad d(mi.CloneMenu)
Next
cx.Show(Me, New Point(0, 0))
e.Handled = True
End If
End Sub

You don't need to call AddHandler for the cloned menu items, they inherit
the handlers of the originals.

[Branislav Pajer]

Hi I have tried your code but It does not seems to even pickup pressing
of F8 key as an event... I mean if I put the code under Form_KeyDown
Replace what is after Then statement with msgbox("F8") run it and then
press F8 nothing happens...

and the next thing my menus are build from the code like this :

'# creating variables to hold default menu items
Dim TestsItem As New MenuItem
Dim AddTestItem As New MenuItem
Dim DeleteTestItem As New MenuItem
Dim MicrobiologyIte m As New MenuItem
Dim ChemistryItem As New MenuItem
Dim GroupTestsItem As New MenuItem

'# assigning them text
TestsItem.Text = "&Tests"
AddTestItem.Tex t = "&Add Test"
DeleteTestItem. Text = "&Delete Test"
MicrobiologyIte m.Text = "&Microbiol ogy"
MicrobiologyIte m.Shortcut = Shortcut.CtrlA
MicrobiologyIte m.ShowShortcut = True
ChemistryItem.T ext = "&Chemistry "
ChemistryItem.S hortcut = Shortcut.F9
ChemistryItem.S howShortcut = True
GroupTestsItem. Text = "&Group Tests"
GroupTestsItem. Shortcut = Shortcut.F11
GroupTestsItem. ShowShortcut = True

'# adding them to the menu
thisMenu.MenuIt ems.Add(TestsIt em)
TestsItem.MenuI tems.Add(AddTes tItem)
TestsItem.MenuI tems.Add(Delete TestItem)
AddTestItem.Men uItems.Add(Micr obiologyItem)
AddTestItem.Men uItems.Add(Chem istryItem)
AddTestItem.Men uItems.Add(Grou pTestsItem)

there is more code that populates

MicrobiologyIte m
ChemistryItem
GroupTestsItem

with loads of another stuff from Database (about another 50
items) none of them has any more subitems
What will the code look like to clone every item from MicrobiologyIte m
??

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!