I want to show the current windows in my mdi form on a button dropdown. I can get it to work with a basic menu i.e But need to have this add to the Ribbonbar - anyone help
Thanks
'Setup MDI stuff
Me.IsMdiContainer = True
'Add File Menu
Dim miFile As MenuItem = MainMenu.MenuItems.Add("&File")
miFile.MergeOrder = 0
miFile.MergeType = MenuMerge.MergeItems
Dim miAddDoc As MenuItem = New MenuItem("&Add Document", New EventHandler(AddressOf Me.FileAdd_Clicked), Shortcut.CtrlA)
miAddDoc.MergeOrder = 100
Dim miExit As MenuItem = New MenuItem("E&xit", New EventHandler(AddressOf Me.FileExit_Clicked), Shortcut.CtrlX)
miExit.MergeOrder = 110
miFile.MenuItems.Add(miAddDoc)
miFile.MenuItems.Add(
"-") ' Gives us a seperator
miFile.MenuItems.Add(miExit)
'Add Window Menu
Dim miWindow As MenuItem = MainMenu.MenuItems.Add("&Window")
miWindow.MergeOrder = 10
miWindow.MenuItems.Add(
"&Cascade", New EventHandler(AddressOf Me.WindowCascade_Clicked))
miWindow.MenuItems.Add(
"Tile &Horizontal", New EventHandler(AddressOf Me.WindowTileH_Clicked))
miWindow.MenuItems.Add(
"Tile &Vertical", New EventHandler(AddressOf Me.WindowTileV_Clicked))
miWindow.MdiList =
True 'Adds the MDI Window List to the bottom of the menu