Exemple

L'exemple suivant montre comment renvoyer les points limites du rectangle de la fenêtre de l'émulateur.

Dim autECLWinObj as Object Dim ConnList as Object Dim left Dim top Dim right Dim bottom Set autECLWinObj = CreateObject("ZIEWin.autECLWinMetrics") Set ConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection ConnList.Refresh autECLWinObj.SetConnectionByHandle(ConnList(1).Handle) autECLWinObj.GetWindowRect left, top, right, bottom