InfoConnect VBA Guide
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