ConfigureHotSpots Method (IbmScreen)
Loads the hotspots file as the current hotspots definitions.
expression.ConfigureHotSpots( _
ByVal As String _
) As ReturnCode
where
expression is a variable that represents a
IbmScreen Object
Parameters
- hotSpotsFilePath
- Hotspots file path.
Return Value
One of the following ReturnCode values.
| Member |
Description |
| Cancelled |
Cancelled. |
| Error |
Error. |
| PermissionRequired |
Permission is required. |
| Success |
Success. |
| Timeout |
Timeout condition. |
| Truncated |
The text is truncated. |
This example configures a new session with custom hotspots.
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
Dim path As String
'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"
'Create a view to display the session
Set View = ThisFrame.CreateView(terminal)
'Configure to use custom hotspots file
path = Environ("USERPROFILE") & "\Documents\Micro Focus\Reflection\hotspots maps\myhotspots.xhs"
terminal.screen.ConfigureHotSpots (path)
End Sub
