| Background Color | ||
|---|---|---|
| ||
| IField::VBS_GetNextLength |
Get the length of the next protected or unprotected field.
| Background Color |
|---|
| Function VBS_GetNextLength(row As Variant, column As Variant, length As Variant, [ft As FieldType = UNPROTECTED]) As Long |
Parameters
| No | Name | Type | Optional | Default | Description |
|---|---|---|---|---|---|
| 1 | row | Variant | No | - | screen row inside the field from where the search starts |
2 | column | Variant | No | - | screen column inside the field from where the search starts |
3 | length | Variant | No | - | On success will contain the length of the field in characters. In the case of an error, the contents of this parameter are undefined |
4 | ft | Yes | UNPROTECTED | Get the length of the next PROTECTED or UNPROTECTED field. The default is UNPROTECTED | |
Return Code | Description | ||||
JGS_OK | The field length was found | ||||
JGS_PARAMETERERROR | Missing or invalid parameter | ||||
JGS_NOTCONNECTED | Your application is not connected to any valid session | ||||
JGS_POSITIONERROR | The position specified by row and column is invalid | ||||
JGS_SYSERROR | The function failed due to a system error | ||||
JGS_NOFIELD | The position was not inside a field, or the screen is unformatted | ||||
JGS_ZEROLENFIELD | The specified field has a length of 0 | ||||
...
This function starts at the specified position. It searches forward for the next PROTECTED or UNPROTECTED field and retrieves it's length.
Sample Code
| Background Color | ||
|---|---|---|
| ||
| Dim row as Variant Dim column as Variant Dim fieldLength as Variant Dim myType as FieldType Dim result as Long row = 18 column = 45 myType = PROTECTED result = field.VBS_GetNextLength(row, column, fieldLength, myType) If result = JGS_OK then ... ' fieldLength contains length of next protected field Else ... |
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.
...