ISDBUI::AddMenuItem: Difference between revisions
		
		
		
		Jump to navigation
		Jump to search
		
| mNo edit summary | mNo edit summary | ||
| Line 31: | Line 31: | ||
| *[[ISDBUI::AddMenuItemSub]]   | *[[ISDBUI::AddMenuItemSub]]   | ||
| *[[ISDBUI::AddMenuItemSep]]   | *[[ISDBUI::AddMenuItemSep]]   | ||
| *[[ISDBUI::Menu Compendium]] | |||
| [[Category:Scripting|{{PAGENAME}}]] | [[Category:Scripting|{{PAGENAME}}]] | ||
| [[Category:Automation objects|{{PAGENAME}}]] | [[Category:Automation objects|{{PAGENAME}}]] | ||
| [[Category:CoClass SDBUI|{{PAGENAME}}]] | [[Category:CoClass SDBUI|{{PAGENAME}}]] | ||
| [[Category:Interface ISDBUI|{{PAGENAME}}]] | [[Category:Interface ISDBUI|{{PAGENAME}}]] | ||
Revision as of 19:52, 18 January 2008
CoClass SDBUI, Interface ISDBUI
Function AddMenuItem(ParentItem As ISDBMenuItem, InSection As Long, ItemOrder As Long) As ISDBMenuItem
Parameters
| Name | Type | Description | 
|---|---|---|
| ParentItem | ISDBMenuItem | Specifies where to add the new item, it can either be any of Menu_xxx properties or a value returned from a previous call to ISDBUI::AddMenuItemSub | 
| InSection | Long | To which section of the ParentItem to add the new item (section is a part separated by two separator items). Last section(0), The first(1), The second(2), ..., The first from bottom, i.e.the last(-1), The second from bottom(-2), ... | 
| ItemOrder | Long | Where will the item appear within the section: The last(0), The first(1), The second(2), ..., The first from bottom i.e.the last(-1), The second from bottom (-2), ... | 
Method description
AddMenuItem creates a new menu item or a toolbar item (these two are internally handled as the same).
Example code
' Add a submenu to the View menu...
Set Mnu = UI.AddMenuItemSub( UI.Menu_View, -1, 1)      ' The first item in the last section of View menu
Mnu.Caption = "Custom items"
' ... and add Statistics item there
Set SubMnu = UI.AddMenuItem( Mnu, 0, 0)    ' Add an item to the previously created menu
SubMnu.Caption = "&Statistics"     
Mnu.OnClickFunc = "ShowIt"
Mnu.Shortcut = "Ctrl+1"
Mnu.IconIndex = 35