Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / ContextMenus Object / ItemByName Method
The descriptive name of the menu. If null or empty string is passed, this is equivalent to the default menu.
Example
In This Topic
    ItemByName Method (ContextMenus)
    In This Topic
    Returns the context menu associated with the specified descriptive name.
    Syntax
    expression.ItemByName( _
       ByVal name As String _
    ) As ContextMenu object 
    where expression is a variable that represents a ContextMenus Object

    Parameters

    name
    The descriptive name of the menu. If null or empty string is passed, this is equivalent to the default menu.

    Return Value

    The ContextMenu object associated with name, or null if it does not exist
    Exceptions
    ExceptionDescription
    If the ContextMenus object is not available or in an error state
    Example
    This example adds menu item to default context menu. It uses the ItemByName method to get the default menu.
    Sub AddMenuToDefaultMenuFix()
     
        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