ISDBUI::AddMenuItem: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
m (Added link to SDBMenuItem) |
||
| Line 1: | Line 1: | ||
{{MethodDeclaration|SDBUI|ISDBUI|Function AddMenuItem(ParentItem As | {{MethodDeclaration|SDBUI|ISDBUI|Function AddMenuItem(ParentItem As [[SDBMenuItem]], InSection As Long, ItemOrder As Long) As [[SDBMenuItem]]}} | ||
===Parameters=== | ===Parameters=== | ||
Revision as of 01:38, 26 December 2007
CoClass SDBUI, Interface ISDBUI
Function AddMenuItem(ParentItem As SDBMenuItem, InSection As Long, ItemOrder As Long) As SDBMenuItem
Parameters
| Name | Type | Description |
|---|---|---|
| ParentItem | SDBMenuItem | 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