| Background Color | ||
|---|---|---|
| ||
| IWindow::VBS_GetStatus |
Get information about window size, position, etc.
| Background Color |
|---|
Function VBS_GetStatus(Session As String, win_status As Variant, zorder As Variant, x As Variant, y As Variant, width As Variant, height |
Parameters
| No | Name | Type | Optional | Default | Description |
|---|---|---|---|---|---|
| 1 | Session | String | No | - | One character session ID |
2 | win_status | Variant | No | - | status information |
3 | zorder | Variant | No | - | back or front |
4 | x | Variant | No | - | x-position of window relative to upper left corner of desktop |
5 | y | Variant | No | - | y-position of window relative to upper left corner of desktop |
6 | width | Variant | No | - | width of window in pixels |
7 | height | Variant | No | - | height of window in pixels |
Return Code | Description | ||||
JGS_OK | The function was successful | ||||
JGS_NOTCONNECTED | Your application is not currently connected to any valid session | ||||
JGS_SYSERROR | The function failed due to a system error | ||||
JGS_UNAVAILABLE | The session is already in use by another application | ||||
JGS_PARAMETERERROR | Missing or invalid parameter | ||||
JGS_PSENDED | The session has ended | ||||
Sample Code
| Background Color | ||
|---|---|---|
| ||
| Dim mySession as String Dim result as Long Dim x, y, cx, cy as Variant Dim win_stat, zorder as Variant mySession = "E" result = win.VBS_GetStatus(mySession, win_stat, zorder, x, y, cx, cy) If result = JGS_OK then stat.status = a 2 byte integer value that contains the status information stat.coords = the window coordinates |
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.
...
...