InfoConnect VBA Guide
Attachmate.Reflection.Objects.Productivity Library / AutoExpand Object / AddEntry Method
The entry to add, which is an abbreviation.
The definition for the new dictionary entry, which is an expansion.
Example
In This Topic
    AddEntry Method
    In This Topic
    Adds a key-value pair to the Auto Expand dictionary.
    Syntax
    expression.AddEntry( _
       ByVal abbreviation As String, _
       ByVal expansion As String _
    ) 
    where expression is a variable that represents a AutoExpand Object

    Parameters

    abbreviation
    The entry to add, which is an abbreviation.
    expansion
    The definition for the new dictionary entry, which is an expansion.
    Remarks
    If the entry already exists, then the current entry is updated.
    Example
    This example adds a definition to the Auto Expand tool.
    Sub AddEntryToAutoExpand()
        Dim auto As AutoExpand
        
        'Get the autoExpand object
        Set auto = ThisIbmTerminal.Productivity.AutoExpand
        
        If auto.ContainsEntry("hcdt") = False Then
        
            'Add an Auto Expand definition entry
            auto.AddEntry "hcdt", "Hydrochlorothiazide"
            
        End If
        
    End Sub
    See Also