例
以下の例は、autECLPS オブジェクトに関連する接続について、 表示スペース内のテキストを検索する方法を示しています。
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