InfoConnect for Unisys VBA Guide
CreateControl Function
The fully qualified path to the session document file.
Create a control by opening a session document file.
Syntax
object.CreateControl( _
   ByVal sessionFilePath As String _
) As Object

Parameters

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

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

Open a session document file
Copy Code
Sub OpenSessionDocument()     'InfoConnect objects required to open a new session
    Dim app As Attachmate_InfoConnect_Objects_Framework.ApplicationObject
    Dim terminal As Attachmate_InfoConnect_Objects_Emulation_IbmHosts.IbmTerminal
    Dim view As Attachmate_InfoConnect_Objects.View
 
    Dim sessionPath As String      
 
    'Get a handle to the existing application object (the workspace)
    Set app = GetObject("%%productName%% Workspace")
 
    'Create a terminal control for the new session
    sessionPath = Environ$("USERPROFILE") & "\Documents\%%companyName%%\%%productName%%\" & "gettingStarted.rd3x"
    Set terminal = app.CreateControl(sessionPath)
 
    'Create the view used to display the session
    Set view = ThisFrame.CreateView(terminal)
End Sub
Open a session document file
Copy Code
Sub OpenSessionDocument()    
    'InfoConnect objects required to open a new session
    Dim app As Attachmate_InfoConnect_Objects_Framework.ApplicationObject
    Dim terminal As Attachmate_InfoConnect_Objects_Emulation_OpenSystems.Terminal
    Dim view As Attachmate_InfoConnect_Objects.View
    Dim sessionPath As String

    'Get a handle to the existing application object (the workspace)
    Set app = GetObject("%%productName%% Workspace")
   
    'Create a terminal control for the new session
    sessionPath = Environ$("USERPROFILE") & "\Documents\%%companyName%%\%%productName%%\" & "gettingStarted.rdox"
    Set terminal = app.CreateControl(sessionPath)
 
    'Create the view used to display the session
    Set view = ThisFrame.CreateView(terminal)
End Sub

 

 

See Also

 

 


2015 Attachmate

Send Feedback