VBS_SetStatus_(Method)
Set the window position, size, visibility, etc.
Function VBS_SetStatus(Session As String, win_status As Long, zorder As Long, x As Long, y As Long, cx As Long, cy As Long) As Long
Parameters
No | Name | Type | Optional | Default | Description |
---|---|---|---|---|---|
1 | Session | String | No | - | One character session ID |
2 | win_status | Long | No | - | Status variable indicating which properties to set |
3 | zorder | Long | No | - | front or back |
4 | x | Long | No | - | x-position relative to upper left corner of desktop |
5 | y | Long | No | - | y-position relative to upper left corner of desktop |
6 | cx | Long | No | - | Width of window |
7 | cy | Long | No | - | Height of window |
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 Long
Dim win_stat as Long
Dim zorder
zorder = 0
win_stat = 1 Â ' size window
x = 100
y = 50
cx = 500
cy = 350
mySession = "E"
result = win.VBS_SetStatus(mySession, win_stat, zorder, x, y, cx, cy)
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.
Â