ISDBUI::AddMenuItem
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