InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / ControlKeySending Event
Example
In This Topic
    ControlKeySending Event
    In This Topic
    This event is triggered when a key or control key is about to be sent to the host. ControlKeySending allows you to modify a control key value or to cancel a send control key action before it is sent.
    Syntax
    private Sub Screen_ControlKeySending ( 
   ByVal sender As Object, _
   ByRef key As ControlKeyCode _
) As Boolean

    Parameters

    sender
    Object
    key
    A control key code.This is a ControlKeyCode Enumeration value.
    Remarks

    To cancel the action, set ControlKeySending to False.

    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