InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / DisplayColumns Property
Example
In This Topic
    DisplayColumns Property
    In This Topic
    Gets or sets the number of columns displayed in the terminal window.
    Syntax
    expression.DisplayColumns As Integer
    where expression is a variable that represents a Screen Object
    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 ExampleForSearchText4()
     
        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