Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Terminal Object / Connecting Event
Example
In This Topic
    Connecting Event
    In This Topic
    This event is triggered immediately before a connection is made.
    Syntax
    private Sub Terminal_Connecting ( 
   ByVal sender As Object, _
   ByVal connectionId As Integer, _
   ByVal connectionType As ConnectionTypeOption, _
   ByVal connectionSettings As Object _
) As Boolean

    Parameters

    sender
    An object.
    connectionId
    An integer.
    connectionType
    The type of connection.This is a ConnectionTypeOption Enumeration.
    connectionSettings
    An object.
    Example
    This example displays the connection type in a YESNO message box and allows users to decide whether to connect.
    'To run this example, copy it to the ThisTerminal code window
Private Function Terminal_Connecting(ByVal sender As Variant, ByVal ConnectionID As Long, ByVal connnectionType As Attachmate_Reflection_Objects_Emulation_OpenSystems.ConnectionTypeOption, ByVal connectionSettings As Variant) As Boolean
           
    Dim msg As String 'the message to include in the dialog box
    
    'Get the connection type and include it in the message
    Select Case connectionType
    
        Case ConnectionTypeOption_None
            msg = "There is no connection currently configured. Do you want to connect?"
        
        Case ConnectionTypeOption_BestNetwork
            msg = "The connection type is " & "BestNetwork? " & "Do you want to connect?"
    
        Case ConnectionTypeOption.ConnectionTypeOption_SecureShell
            msg = "The connection type is " & "SecureShell? " & "Do you want to connect?"
    
        Case ConnectionTypeOption.ConnectionTypeOption_Telnet
            msg = "The connection type is " & "Telnet? " & "Do you want to connect?"
        
        Case ConnectionTypeOption.ConnectionTypeOption_VT_MGR
            msg = "The connection type is " & "VT_MGR. " & "Do you want to connect?"
        
        Case Else
        msg = "Do you want to connect?"
      
    End Select
    
    'Display a message box and get the user response
    confirm = MsgBox(msg, vbYesNo)
 
    'Depending on the response, allow or disallow connecting
    If confirm = vbYes Then
 
        Terminal_Connecting = True
 
    Else
 
        Terminal_Connecting = False
 
    End If
 
End Function
    See Also

    Reference

    Terminal Object
    Terminal Members

    Send Feedback