Exemple

L'exemple suivant montre comment rechercher du texte dans l'espace de présentation pour la connexion associée à l'objet 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