Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / SearchText3 Method
The text string to search for.
Starting row for the search. The valid range is 1 through the number of rows.
Starting column for the search. The valid range is 1 through the number of columns.
Ending row for the search.
Ending column for the search.
A FindOptions value that specifies the search direction.
Example
In This Topic
    SearchText3 Method (Screen)
    In This Topic
    Searches for the specified text on the screen, from the specified starting location to the specified ending location.
    Syntax
    expression.SearchText3( _
       ByVal text As String, _
       ByVal startRow As Integer, _
       ByVal startColumn As Integer, _
       ByVal endRow As Integer, _
       ByVal endColumn As Integer, _
       ByVal findOption As FindOptions _
    ) As ScreenPoint object 
    where expression is a variable that represents a Screen Object

    Parameters

    text
    The text string to search for.
    startRow
    Starting row for the search. The valid range is 1 through the number of rows.
    startColumn
    Starting column for the search. The valid range is 1 through the number of columns.
    endRow
    Ending row for the search.
    endColumn
    Ending column for the search.
    findOption
    A FindOptions value that specifies the search direction.

    Return Value

    A ScreenPoint object that contains the coordinate of the located text or null, if the text is not found.
    Example
    This example sets a selection point, extends it, and copies the selected area to the clipboard.
    Sub SetAndExtendSelection()
     
        Dim rcode As ReturnCode
        
        Dim StartSel As ScreenPoint
        
        Dim EndColPoint As ScreenPoint
        Dim EndCol As Integer
        
        Dim EndRowPoint As ScreenPoint
        Dim EndRow As Integer
        
        
        Dim EndSel As ScreenPoint
        
       'Get the last column in the table
        Set EndColPoint = ThisScreen.SearchText3("Profit", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        EndCol = EndColPoint.column + Len("Point")
     
        'Get the last row in the table
        Set EndRowPoint = ThisScreen.SearchText3("Dec", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        EndRow = EndRowPoint.row
     
        'Get the location for the start of the selection
        Set StartSel = ThisScreen.SearchText3("Jan", 1, 1, ThisScreen.DisplayRows, ThisScreen.DisplayColumns, FindOptions_Forward)
        
     
        'Set the start of the selection
        ThisScreen.SetSelectionStartPos StartSel.row, StartSel.column
        
        'Extend the selection to the last row and column in the table
        ThisScreen.ExtendSelectionRect EndRow, EndCol
        
        'Copy the selected area to the clipboard
        rcode = ThisScreen.Copy2(CopySourceOption_Selection)
       
     
    End Sub
    See Also