Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / ContextMenuItem Object / MenuItemType Property
Example
In This Topic
    MenuItemType Property (ContextMenuItem)
    In This Topic
    Gets or sets a value indicating the type of menu item this item refers to.
    Syntax
    expression.MenuItemType As ContextMenuItemType
    where expression is a variable that represents a ContextMenuItem Object

    Property Value

    A ContextMenuItemType value.
    Example
    This example adds a menu item to the default context menu. It uses the MenuItemType property to set the item as a menu item type.
    Sub AddMenuToDefaultMenu()
     
        Dim action As InputMapAction
        Dim sequence As InputMapActionSequence
        Dim menuItem As ContextMenuItem
        
        Dim menu As contextMenu
       
        'Get the default context menu.
        Set menu = ThisIbmTerminal.ContextMenus.ItemByName("Default")
     
        'Create an action sequence to hold the actions.
        Set sequence = New InputMapActionSequence
          
        'set an action to open the Office Tools Pane and add it to the sequence.
        Set action = New InputMapAction
        action.ActionId = InputMapActionID_OfficeToolsPaneAction
        sequence.Add action
        
        'Create the menu item for the Office Tools action and map it to the sequence.
        Set menuItem = New ContextMenuItem
        menuItem.Name = "Open Office Tools"
        menuItem.MenuItemType = ContextMenuItemType_MenuItem
        Set menuItem.mapping = sequence
       
        'Add the Office Tools menu item to the menu.
        menu.AddMenuItem menuItem
        
        'Update the menu
        ThisIbmTerminal.ContextMenus.Add menu
     
    End Sub
    See Also