InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / SendControlKeySync Method
The ControlKeyCode Enumeration value that specifies the host control key to send to the host.
Example
In This Topic
    SendControlKeySync Method (IbmScreen)
    In This Topic
    Sends a host control key to the host.
    Syntax
    expression.SendControlKeySync( _
   ByVal keycode As ControlKeyCode _
) As ReturnCode
    where expression is a variable that represents a IbmScreen Object

    Parameters

    keycode
    The ControlKeyCode Enumeration value that specifies the host control key to send to the host.

    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.
    Remarks
    The method does not return until the screen has settled for the time duration measured by the ScreenSettleTime property.
    Example
    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 run the macro from the login screen. 
    Sub NavigateWithSendControlKeySyncMethod()
    'Declare application, terminal, and view object variables:
    Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
    Dim screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen
 
    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
    
    'Set the screen settle time
    screen.ScreenSettleTime = 2000
  
    'Navigate to the screen
    rcode = screen.SendControlKeySync(ControlKeyCode_Transmit)
    
    'Go to a screen and get some data
    rcode = screen.SendKeys("kayak")
    rcode = screen.SendControlKeySync(ControlKeyCode_Transmit)
    text = screen.GetText(13, 66, 6)
 
    'Go back and navigate to another screen
    rcode = screen.SendControlKeySync(ControlKeyCode_F3)
    
    'Navigate to a screen and put the data into a field
    rcode = screen.SendKeys("ispf")
    rcode = screen.SendControlKeySync(ControlKeyCode_Transmit)
    
    rcode = screen.SendKeys("2")
    rcode = screen.SendControlKeySync(ControlKeyCode_Transmit)
    
    rcode = screen.PutText2(text, 5, 18)
    
End Sub
    See Also

    Reference

    IbmScreen Object
    IbmScreen Members

    Send Feedback