Event Processing Example

The following is a short example of how to implement Xfer Events

Option Explicit
Private WithEvents mXfer As autECLXfer 'AutXfer added as reference
 
sub main()
'Create Objects
Set mXfer = New autECLXfer
mXfer.SetConnectionByName "A" 'Monitor Session A
 
mXfer.RegisterCommEvent ' register for Communications Link updates for session A
 
' Display your form or whatever here  (this should be a blocking call, otherwise sub just ends
call DisplayGUI()
 
mXfer.UnregisterCommEvent 
 
set mXfer= Nothing
End Sub
 
'This sub will get called when the Communication Link Status of the registered
'connection changes
Private Sub mXfer _NotifyCommEvent()
' do your processing here 
End Sub
 
'This event occurs if an error happens in Communications Link event processing 
Private Sub mXfer _NotifyCommError()
'Do any error processing here
End Sub
 
'This event occurs when Communications Status Notification ends
Private Sub mXfer _NotifyCommStop()
'Do any stop processing here
End Sub