Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / 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