Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / SearchText3 Method
The specified text string.
Start row.
Start column.
End row.
End column.
A FindOption enumeration that specifies the search direction.
Example
In This Topic
    SearchText3 Method (IbmScreen)
    In This Topic
    Searches the specified text, starting from the specified screen location and ending at the specified end screen 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 FindOption _
    ) As ScreenPoint object 
    where expression is a variable that represents a IbmScreen Object

    Parameters

    text
    The specified text string.
    startRow
    Start row.
    startColumn
    Start column.
    endRow
    End row.
    endColumn
    End column.
    findOption
    A FindOption enumeration that specifies the search direction.

    Return Value

    A ScreenPoint object object that contains the screen coordinate where the specified text begins, if found, or null if the text could not be found.
    Example
    This sample searches for the "ATM" text string on a specific area of the screen.
    Sub SearchForText()
        Dim screenPosition As Attachmate_Reflection_Objects_Emulation_IbmHosts.ScreenPoint
        Dim lowerCaseText As String
        Dim upperCaseText As String
        
        text = "PDF"
     
        
        'look for uppercase text
        Set screenPosition = ThisIbmScreen.SearchText3(text, 1, 1, 23, 52, FindOption_Forward)
            
        If IsEmpty(screenPosition) Or (screenPosition Is Nothing) Then
            MsgBox upperCaseText & " Not found"
        Else
            MsgBox upperCaseText & " found at row " & screenPosition.row & " and column " & screenPosition.column
        End If
        
        
    End Sub
    See Also