Close Method (ApplicationObject)

In This Topic

Closes the application.

Syntax

Visual Basic (Declaration)

expression.Close( _
   ByVal closeOption As ApplicationCloseOption _
)

where expression is a variable that represents a ApplicationObject Object

Parameters

closeOption: An ApplicationCloseOption Enumeration value.

Example

This example opens Reflection Desktop, creates a new IBM 3270 session, and then closes Reflection Desktop without saving the session. You can run this example from a Microsoft Excel macro as follows:

On the Excel VBA Editor Tools menu, select References and then select the following Reflection Libraries:
• Attachmate_Reflection_Objects
• Attachmate_Reflection_Objects_Emulation_IbmHosts
• Attachmate_Reflection_Objects_Framework

Then copy the following code into an Excel Sheet object code window and press F5 to run the macro.

Visual Basic

'This example opens Reflection Desktop, creates a new IBM 3270 session, waits a few seconds and  then closes Reflection Desktop without saving the session
 
Public WithEvents screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen
Public Sub applicationWaitExample()
    'Declare an object variable for the Reflection object
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
   
    'Declare additional Reflection objects, such as frame, terminal, and view
    Dim frame As Attachmate_Reflection_Objects.frame
    Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
    Dim view As Attachmate_Reflection_Objects.view
   
    'Create a new instance of Reflection
    Set app = New Attachmate_Reflection_Objects_Framework.ApplicationObject
 
    'wait until Reflection initializes
    Do While app.IsInitialized = False
        app.Wait (200)
    Loop
 
    'Create controls to open and display the session document.
    Set frame = app.GetObject("Frame")
    frame.Visible = True
   
    Set terminal = app.CreateControl2("09E5A1B4-0BA6-4546-A27D-FE4762B7ACE1")
                          
    terminal.HostAddress = "demo:ibm3270.sim"
    Set view = frame.CreateView(terminal)
    
    'Get data from Reflection or perform other commands
    app.Wait (3000)
    
    'Close Reflection without saving the session
    app.Close ApplicationCloseOption_CloseNoSave
    
End Sub

Reference

ApplicationObject Object
ApplicationObject Members

Send Feedback