WaitForCursor2 Method

In This Topic

Waits for the cursor to be in the rectangle area specified by startRow, startColumn, endRow and endColumn.

Syntax

Visual Basic (Declaration)

expression.WaitForCursor2( _
   ByVal timeout As Integer, _
   ByVal startRow As Integer, _
   ByVal startColumn As Integer, _
   ByVal endRow As Integer, _
   ByVal endColumn As Integer _
) As ReturnCode

where expression is a variable that represents a IbmScreen Object

Parameters

timeout: Wait timeout value (milliseconds).
startRow: Start row.
startColumn: Start column.
endRow: End row.
endColumn: End column.

Return Value

One of the following ReturnCode enum values.

Member	Description
Cancelled	Cancelled.
Error	Error.
PermissionRequired	Permission is required.
Success	Success.
Timeout	Timeout condition.
Truncated	The text is truncated.

Example

This sample navigates to the "Edit - Entry Panel" screen on the Reflection IBM3270 demo and writes some text on the last screen. It waits for the cursor to appear anywhere on the screen before entering any commands on that screen. To run this sample, create a 3270 session and set the Host name / IP address to demo:ibm3270.sim. Then paste this code into a VBA module and then run the macro from the login screen.

Visual Basic

Sub NavigateWithWaitforCursor2()
    'Declare terminal, screen, and rcode variables:
    Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
    Dim screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen
    Dim topRow As Integer, topCol As Integer, bottomRow As Integer, bottomCol As Integer
    Dim rcode As ReturnCode
 
    'Set the parameters for the screen area to define the whole screen
    topRow = 1
    topCol = 1
    bottomRow = ThisIbmScreen.rows
    bottomCol = ThisIbmScreen.columns
 
    Set terminal = ThisIbmTerminal
  
    'Get a handle to the Screen object and navigate to the screen we
    'want to enter the data on
    Set screen = terminal.screen
  
    'Navigate to the screen
    rcode = screen.SendControlKey(ControlKeyCode_Transmit)
    
    rcode = screen.WaitForCursor2(2000, topRow, topCol, bottomRow, bottomCol)
    rcode = screen.SendKeys("ISPF")
    rcode = screen.SendControlKey(ControlKeyCode_Transmit)
  
    rcode = screen.WaitForCursor2(2000, topRow, topCol, bottomRow, bottomCol)
    rcode = screen.SendKeys("2")
    rcode = screen.SendControlKey(ControlKeyCode_Transmit)
  
    rcode = screen.WaitForCursor2(2000, topRow, topCol, bottomRow, bottomCol)
       
    'Put some text into a field on the last screen
    rcode = screen.PutText2("Finished", 5, 18)
   
End Sub

Reference

IbmScreen Object
IbmScreen Members

Send Feedback