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

    Reference

    Screen Object
    Screen Members

    Send Feedback