MouseClickEx Event

In This Topic

This event occurs when a session window is clicked by the mouse.

Syntax

Visual Basic (Declaration)

private Sub IbmScreen_MouseClickEx ( 
   ByVal windowMessage As Integer, _
   ByVal row As Integer, _
   ByVal column As Integer, _
   ByVal X As Integer, _
   ByVal Y As Integer _
)

Parameters

windowMessage: Window message that contains the mouse click event.
row: The terminal row number of the mouse click.
column: The terminal column number of the mouse click.
X: The x-coordinate of the mouse click, in pixels, relative to the left side of the session window.
Y: The y-coordinate of the mouse click, in pixels, relative to the top of the session window.

Example

This example prints the text in a field when the mouse is clicked in the field.

Visual Basic

Private Sub IbmScreen_MouseClickEx(ByVal windowMessage As Long, ByVal row As Long, ByVal column As Long, ByVal x As Long, ByVal y As Long)
 
    'When the the left mouse button is released (windowMessage = 514 is WM_LBUTTONUP), get the field the mouse is in and print the text in the field.
    If windowMessage = 514 Then
        Sleep 200
      
        Dim myField As HostField
        Dim myFieldText As String
 
        'Get the field
        Set myField = ThisIbmScreen.GetField(row, column)
 
        'Print the text in field that was clicked
        myFieldText = myField.text
        Debug.Print myFieldText
    
    End If
    
End Sub

Reference

IbmScreen Object
IbmScreen Members

Send Feedback