Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / SearchText2 Method
The text to be searched.
Screen row location.
Screen column location.
The number of byte positions to be searched.
A FindOption enumeration that specifies the search direction.
Example
In This Topic
    SearchText2 Method (IbmScreen)
    In This Topic
    Searches the specified text, starting from the specified screen location for "searchRange" byte positions.
    Syntax
    expression.SearchText2( _
       ByVal text As String, _
       ByVal startRow As Integer, _
       ByVal startColumn As Integer, _
       ByVal searchRange As Integer, _
       ByVal findOption As FindOption _
    ) As ScreenPoint object 
    where expression is a variable that represents a IbmScreen Object

    Parameters

    text
    The text to be searched.
    startRow
    Screen row location.
    startColumn
    Screen column location.
    searchRange
    The number of byte positions to be searched.
    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 range of the screen that is defined by a starting location and a number of screen byte positions.
    Sub SearchForTextinARange()
        Dim screenPosition As Attachmate_Reflection_Objects_Emulation_IbmHosts.ScreenPoint
        
        Set screenPosition = ThisIbmScreen.SearchText2("ATM", 1, 1, 50, FindOption_Forward)
        
        If IsEmpty(screenPosition) Or (screenPosition Is Nothing) Then
            MsgBox "Not found"
        Else
            MsgBox "found at row " & screenPosition.row & " and column " & screenPosition.column
        End If
        
    End Sub
    See Also