Description
Represents a menu, that is, a collection of MenuItem objects.
The menu may be the top-level menu, or a submenu.
Object Model
Example
| Adding menus (Visual Basic) |  Copy Code |
|---|
Dim m_menus As SAPbouiCOM.Menus
Dim m_menuItem As SAPbouiCOM.MenuItem
Dim innerUMenu As SAPbouiCOM.MenuItem
Set m_menus = m_app.Menus
Set m_menus = m_menus.Item(4).SubMenus
Set m_menuItem = m_menus.Add("mn_1", "first", mt_POPUP, 5)
Set m_menuItem = m_menus.Add("mn_171", "second", mt_POPUP, 5)
Set m_menuItem = m_menuItem.SubMenus.Add("mn_21", "son3", mt_POPUP, 0)
Set innerUMenu = m_menuItem.SubMenus.Add("mn_31", "son4", mt_STRING, 0)
m_menus("mn_1").Enabled = True
innerUMenu.Enabled = True
innerUMenu.String = "after 2"
Set innerUMenu = m_menuItem.SubMenus.Add("mn_411", "", mt_SEPERATOR, 1)
Set innerUMenu = m_menuItem.SubMenus.Add("mn_5121211", "son5", mt_STRING, 2)
Set innerUMenu = m_menuItem.SubMenus.Add("mn_6121211", "son6", mt_STRING, 3)
m_menus("mn_1").Enabled = False
m_menus("mn_1").Checked = True
m_menus("mn_1").String = "fgfg"
m_menus("mn_1").Enabled = True
m_menus.Remove m_menus("mn_1")
|
|
See Also
