VBS_GetNextPosition (Method)

IField::VBS_GetNextPosition

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

Back to IFiend members