ClearEvents Method (IbmScreen)
Removes all events defined via DefineEvent.
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
