InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / ContextMenuItem Object / Mapping Property
Example
In This Topic
    Mapping Property (ContextMenuItem)
    In This Topic
    Gets or sets a value indicating what this item is mapped to.
    Syntax
    expression.Mapping As InputMapActionSequence
    where expression is a variable that represents a ContextMenuItem Object
    Remarks
    If this item is not a ContextMenuItemType.MenuItem, this value is irrelevant.
    Example
    This example adds a menu item to the default context menu. It uses the Mapping property to map the action for the menu item to an action sequence.
    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