Close Method (ApplicationObject)
Closes the application.
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.
'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
