InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / AfterSendKeysEventHandler Event
Sender of event.
Keys that have been sent.
Cursor row position.
Cursor column position.
ExampleExample
In This Topic
    AfterSendKeysEventHandler Event
    In This Topic
    Handles the BeforeSendKey event to permit users to modify a key value or cancel a send key action before it is sent.
    Syntax
    Public Delegate Sub AfterSendKeysEventHandler( _
       ByVal sender As Object, _
       ByVal keys As String, _
       ByVal row As Integer, _
       ByVal column As Integer _
    ) 

    Parameters

    sender
    Sender of event.
    keys
    Keys that have been sent.
    row
    Cursor row position.
    column
    Cursor column position.
    Example
    This sample changes all characters entered on the screen to upper case
    Private Sub IbmScreen_AfterSendKeys(ByVal sender As Variant, ByVal Keys As String, ByVal row As Long, ByVal column As Long)
     
        ky = Asc(Keys)
     
        If ky >= 97 And ky <= 122 Then ky = ky - 32
     
        retrn = ThisIbmScreen.PutText1(Chr(ky), row, column, 1)
     
    End Sub
    See Also