Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Framework Library / Attachmate.Reflection.Objects.Framework Library / ApplicationObject Object / CreateControl Method
The fully qualified path to the session document file.
In This Topic
    CreateControl Method
    In This Topic
    Create a control by opening a session document file.
    Syntax
    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
    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
    

     

    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
    
    See Also