Event Processing Example
The following is a short example of how to implement OIA Events
Option Explicit
Private WithEvents myOIA As autECLOIA 'AutOIA added as reference
sub main()
'Create Objects
Set myOIA = New AutOIA
Set myConnMgr = New AutConnMgr
myOIA.SetConnectionByName ("B") 'Monitor Session B for OIA Updates
myOIA.RegisterOIAEvent 'register for OIA Notifications
' Display your form or whatever here (this should be a blocking call, otherwise sub just ends
call DisplayGUI()
'Clean up
myOIA.UnregisterOIAEvent
Private Sub myOIA_NotifyOIAEvent()
' do your processing here
End Sub
Private Sub myOIA_NotifyOIAError()
' do your processing here
End Sub
'This event occurs when Communications Status Notification ends
Private Sub myOIA_NotifyOIAStop(Reason As Long)
'Do any stop processing here
End Sub