InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / KeysSent Event
Example
In This Topic
    KeysSent Event
    In This Topic
    This event is triggered immediately after InfoConnect transmits a character, or string of characters, to the host.
    Syntax
    private Sub Screen_KeysSent ( 
   ByVal sender As Object, _
   ByVal keys As String _
)

    Parameters

    sender
    The Screen object.
    keys
    The character or string that was just sent to the host.
    Example
    These two events capture and print the keys and controlkeycode that were entered.
    'To run this example, copy it to the ThisScreen code window
 
Public SentKeys As String
 
Private Function Screen_ControlKeySending(ByVal sender As Variant, Key As Attachmate_Reflection_Objects_Emulation_OpenSystems.ControlKeyCode) As Boolean
 
    'Print the keys that are sent and the control key
    Debug.Print SentKeys & " <Key: " & Key & ">"
    
    
    Screen_ControlKeySending = True
    
    'Clear the SentKeys buffer
    SentKeys = ""
 
End Function
 
Private Sub Screen_KeysSent(ByVal sender As Variant, ByVal Keys As String)
 
'Add the sent keys to the buffer
SentKeys = SentKeys & Keys
 
End Sub
    See Also

    Reference

    Screen Object
    Screen Members

    Send Feedback