VBS_GetStatus_(Method)
Get information about window size, position, etc.
Function VBS_GetStatus(Session As String, win_status
As Variant, zorder As Variant, x As
Variant, y As Variant, width As Variant, height
As Variant
) As Long
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
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.
Â