InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / ScreenPoint Object
In This Topic
    ScreenPoint Object
    In This Topic
    ScreenPoint represents a coordinate of a row and a column on the host screen.
    Remarks
    Screen represents the terminal screen. It provides methods and properties to access terminal screen data.
    Example
    This example finds the position (row and column) of a string on a screen. To run this sample, create a VT session with the host name/IP address set to demo:unix. Then enter any text for credentials and enter demodata to navigate to the XYZ Company Sales screen. Enter and run this code in a code module.
    'This example finds the position (row and column) of a string on a screen
    Sub ExampleForScreenPoint()
     
        Dim sPoint As ScreenPoint
        Dim text As String
        Dim row, column As Integer
        
        'Get the maximum rows for the screen
        row = ThisScreen.DisplayRows
        column = ThisScreen.DisplayColumns
        
        'Find the row
        Set sPoint = ThisScreen.SearchText4("Profit", 1, 1, row, column, FindOptions_Forward, TextComparisonOption_IgnoreCase)
        
        'Get the Text
        text = ThisScreen.GetText(sPoint.row, sPoint.column, 8)
        
        Debug.Print text; " is at row " & sPoint.row & " and column " & sPoint.column
        
    End Sub
    See Also