DefinedEvent Event (IbmScreen)
This event is triggered when an event defined by the DefineEvent method occurs. Events defined in this way remain defined as long as your Reflection session lasts, or until they are removed using the RemoveEvent or ClearEvents methods.
private Sub IbmScreen_DefinedEvent (
ByVal As Integer, _
ByVal As DefinedEventType, _
ByVal As String, _
ByVal As Integer, _
ByVal Column As Integer _
)
Parameters
- EventNumber
- The event identifier. This corresponds to the DefineEvent return value.
- EventType
- The type of event.This is a DefinedEventType Enumeration value that indicates the type of event fired.
- TheString
- When pertinent, the string value associated with the event.
- Row
- When pertinent, the screen row associated with the event.
- Column
- When pertinent, the screen column associated with the event.
This example defines an event that occurs when there is no host activity for 30 seconds and handles the event to disconnect the session.
'Place this code in the ThisIbmTerminal code window
Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
ThisIbmScreen.ClearEvents
'Define an event that occurs when there is no host activity for 30 seconds
ThisIbmScreen.DefineEvent 1, DefinedEventType_Silence, "00:00:30", " ", 0, 0
End Sub
'Place this code in the ThisIbmScreen code window. The following procedure is executed when a defined event triggers.
Private Sub IbmScreen_DefinedEvent(ByVal EventNumber As Long, ByVal EventType As Attachmate_Reflection_Objects_Emulation_IbmHosts.DefinedEventType, ByVal TheString As String, _
ByVal row As Long, ByVal column As Long)
'If the host is inactive for the specified interval, disconnect
If EventNumber = 1 Then
ThisIbmTerminal.Disconnect
End If
End Sub
