AfterSendKeys Event

In This Topic

Occurs after a data key or string is sent to the host.

Syntax

Visual Basic (Declaration)

private Sub IbmScreen_AfterSendKeys ( 
   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.

Remarks

The data key can be triggered from the keyboard, an application programming interface, or a macro. SendKeys method triggers an AfterSendKeys event for each SendKeys method invocation.

Example

This sample changes all characters entered on the screen to upper case

Visual Basic

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

Reference

IbmScreen Object
IbmScreen Members

Send Feedback