Locates a field starting from the specified row and column.
expression.FindField1( _
ByVal As Integer, _
ByVal startColumn As Integer, _
ByVal As FindOption _
) As HostField object
where
expression is a variable that represents a
IbmScreen Object
Parameters
- startRow
- The screen row to start the search from
- startColumn
- The screen column to start the search from
- findoption
- A FindOption enumeration value that specifies the direction to search.
Return Value
If a field is found, a
HostField object is returned. If no field is found, nothing is returned.
This sample moves the cursor to the next field when the mouse is clicked on the screen. To run this sample, open any IBM3270 session and copy the code into the ThisIbmScreen code window. On the VBA editor View menu, choose Immediate Window. Then click on various screen locations.
Private Sub IbmScreen_MouseClickEx(ByVal windowMessage As Long, ByVal row As Long, ByVal column As Long, ByVal x As Long, ByVal y As Long)
Dim field As HostField
Dim rtrnCode As ReturnCode
'Print the row and column the mouse was clicked on
Debug.Print "row = " & row & " and column = " & column
Set field = ThisIbmScreen.FindField1(row, column, FindOption_Forward)
'Print the starting row and column of the next unprotected field that is 8 characters long
Debug.Print "Row of next field = " & field.StartRow & " Column of next field = " & field.StartColumn
ThisIbmScreen.Wait (2000)
'Go to the next unprotected field
rtrnCode = ThisIbmScreen.MoveCursorTo1(field.StartRow, field.StartColumn)
MouseClickEx = True
End Sub
This example finds the first field on the screen and prints its row, column, length, and text.
Sub FindAndPrintHostFieldValue()
Dim hostfieldvar As HostField
Set hostfieldvar = ThisIbmScreen.FindField1(1, 1, FindOption_Forward)
Debug.Print hostfieldvar.toString
End Sub
