CreateControl Method

In This Topic

Create a control by opening a session document file.

Syntax

Visual Basic (Declaration)

expression.CreateControl( _
   ByVal sessionFilePath As String _
) As Object

where expression is a variable that represents a ApplicationObject Object

Parameters

sessionFilePath: The fully qualified path to the session document file.

Return Value

A terminal control

Remarks

For more about using the CreateControl method, see:

Dynamically Open a Session

Open a Session From a Microsoft Excel Macro

Using the Reflection Object Model

Get Screen Data With an Excel Macro

Example

This sample creates a control by opening a session document file. Before you run the sample, create and save a session document.

Sub OpenSessionDocument()    
     ' Objects required to open a new session
     Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
     Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
     Dim view As Attachmate_Reflection_Objects.View
 
     Dim sessionPath As String     
 
     'Get a handle to the existing application object (the workspace)
     Set app = GetObject("Reflection Workspace")
 
     'Create a terminal control for the new session
     sessionPath = Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\" & "gettingStarted.rd3x"
     Set terminal = app.CreateControl(sessionPath)
 
     'Create the view used to display the session
     Set view = ThisFrame.CreateView(terminal)
 End Sub

Open Systems

Sub OpenSessionDocument()   
    'Objects required to open a new session
     Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
     Dim terminal As Attachmate_Reflection_Objects_Emulation_OpenSystems.Terminal
     Dim view As Attachmate_Reflection_Objects.View
     Dim sessionPath As String
     'Get a handle to the existing application object (the workspace)
     Set app = GetObject("Reflection Workspace")
   
     'Create a terminal control for the new session
     sessionPath = Environ$("USERPROFILE") & "\Documents\Micro Focus\Reflection\" & "gettingStarted.rdox"
     Set terminal = app.CreateControl(sessionPath)
 
     'Create the view used to display the session
     Set view = ThisFrame.CreateView(terminal)
 End Sub

Reference

ApplicationObject Object
ApplicationObject Members

Quickstart

Open a Session From a Microsoft Excel Macro
Dynamically Open a Session

Send Feedback