Example

The following example shows how to search for text in the presentation space for the connection associated with the autECLPS object.

Dim  autECLPSObj as Object
Dim  autECLConnList as Object
Dim  Row as Long
Dim  Col as Long
Set autECLPSObj = CreateObject("ZIEWin.autECLPS")
Set autECLConnList = CreateObject("ZIEWin.autECLConnList")
 
' Initialize the connection
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle)
 
// Search forward in the PS from the start of the PS.  If found
// then call a hypothetical found routine, if not found, call a hypothetical
 
// not found routine.
row = 3
col = 1
If ( autECLPSObj.SearchText "HCL", 1, row, col) Then
  Call FoundFunc (row, col)
Else
  Call NotFoundFunc
Endif