VBS_GetNextPosition_(Method)
Get the starting position of the next protected or unprotected field.
Function VBS_GetNextPosition(row As Variant, column As Variant, [ft As FieldType = UNPROTECTED]) As Long
Parameters
No | Name | Type | Optional | Default | Description |
---|---|---|---|---|---|
1 | row | Variant | No | - | screen row from where the search starts. On output it will contain the starting row of the specified field if the function was successful else the contents will be unchanged |
2 | column | Variant | No | - | screen column from where the search start. Â On output it will contain the starting column of the specified field if the function was successful; else the contents will be unchanged. |
2 | ft | Yes | UNPROTECTED | Specify whether to get the position of the next PROTECTED or UNPROTECTED field. Â The default is UNPROTECTED | |
Return Code | Description | ||||
JGS_OK | The field position was found | ||||
JGS_NOTCONNECTED | Your application is not connected to a valid host session | ||||
JGS_PARAMETERERROR | Missing or invalid parameter | ||||
JGS_POSITIONERROR | The position specified is not valid | ||||
JGS_SYSERROR | The function failed due to a system error | ||||
JGS_NOFIELD | The specified field was not found or the screen is unformatted | ||||
JGS_ZEROLENFIELD | The length of the specified field is 0 |
Sample Code
Dim row as Variant
Dim column as Variant
Dim result as Long
row = 18
column = 45
result = field.VBS_GetNextPosition(row, column)
If result = JGS_OK then
... Â Â ' row and column contain the starting position of next unprotected field
Else ...
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.
Â