CreateControl2 Method

Visual Basic (Declaration)

expression.CreateControl2( _
   ByVal controlTypeGuid As String _
) As Object

where expression is a variable that represents a ApplicationObject Object

Parameters

controlTypeGuid: See the table in the remarks for Guids to use for each type of control.

Return Value

A terminal control

InstanceId is a string that contains a GUID. The GUID uses one of the following formats:

1) 32 contiguous digits

2) Hyphenated groups of 8, 4, 4, 4, and 12 digits (in that order)

3) Groups of 8, 4, and 4 digits, with a subset of eight groups of 2 digits (in that order).

For example (where "d" is a hexidecimal digit whose case is ignored):

{0xdddddddd,0xdddd, 0xdddd,{0xdd,0xdd,0xdd,0xdd,0xdd,0xdd,0xdd,0xdd}}

For the first two formats, enclosing braces or parentheses are optional.

For the third format, each group must be prefixed by "0x" or "0X" and separated by commas, and both the subset and entire GUID must be enclosed in braces (embedded spaces and leading zeroes in a group are ignored).

The digits shown in a group are the maximum number of meaningful digits that can appear in that group. You can specify from 1 to the number of digits shown for a group. The specified digits are assumed to be the low order digits of the group.

Use the following GUIDs

Terminal Control	GUID
Ibm 3270	{09E5A1B4-0BA6-4546-A27D-FE4762B7ACE1}
Ibm 5250	{AF03A446-F278-4624-B9EF-C896DF2CA1CA}
VT (Open Systems)	{BE835A80-CAB2-40d2-AFC0-6848E486BF58}
Web	{F1F058B1-0472-4095-A782-3D7333813AD0}
ALC	{0327C7A7-820D-4F9F-8BD6-11E0398605F1}
UTS	{C8ADCD4F-3DF8-4BCA-821B-995FEF8DAFEF}
T27	{2AB85541-5BE6-4BCB-8AF5-DA2848DBA28C}

This sample shows how to use the CreateControl2 method to create a new terminal control and then connect the terminal to a host.

IBM

Sub CreateReflectionIBMSession()
    'Declare application, terminal, and view object variables:
     Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
     Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
     Dim view As Attachmate_Reflection_Objects.view
      
     'Get a handle to the workspace
     Set app = GetObject("Reflection Workspace")
                  
     'Create an Ibm3270 control and set the host address
     Set terminal = app.CreateControl2("{09E5A1B4-0BA6-4546-A27D-FE4762B7ACE1}")
     terminal.HostAddress = "demo:ibm3270.sim"
     terminal.port = "623"
    
     'For an Ibm5250 control, use the following Guid:
     'Set terminal = app.CreateControl2("{AF03A446-F278-4624-B9EF-C896DF2CA1CA}" )
    
     'Create a view to display the session
     Set view = ThisFrame.CreateView(terminal)
    
 End Sub

Open Systems

Sub CreateReflectionOpenSystemsSession()
    'Declare application, terminal, and view object variables:
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
    Dim terminal As Attachmate_Reflection_Objects_Emulation_OpenSystems.Terminal
    Dim view As Attachmate_Reflection_Objects.View
     
    'Get a handle to the workspace
    Set app = GetObject("Reflection Workspace")
                 
    'Create an Open Systems control and set the host address
    Set terminal = app.CreateControl2("{BE835A80-CAB2-40d2-AFC0-6848E486BF58}")
    terminal.ConnectionSettingsTelnet.HostAddress = "yourHostName"
   
    'Create a view to display the session
    Set view = ThisFrame.CreateView(terminal)
   
End Sub

Reference

ApplicationObject Object
ApplicationObject Members

Quickstart

Dynamically Create A Session
Create a Session From a Microsoft Excel Macro