Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

 

 

 

Background Color
coloryellow
IField::VBS_GetNextPosition


Get the starting position of the next protected or unprotected field.

 

Background Color
Function VBS_GetNextPosition(row As Variant, column As Variant, [ft As FieldType = UNPROTECTED]) As Long

 


Parameters

NoNameType

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


 

Background Color
coloryellow

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

 

QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.

...