VBS_GetNextLength (Method)

IField::VBS_GetNextLength

Get the length of the next protected or unprotected field.

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	FieldType	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

Remarks

This function starts at the specified position. It searches forward for the next PROTECTED or UNPROTECTED field and retrieves it's length.

Sample Code

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 ...