Event Processing Example
The following is a short example of how to implement WinMetrics Events.
Option Explicit
Private WithEvents mWmet As autECLWinMetrics 'AutWinMetrics added as reference
sub main()
'Create Objects
Set mWmet = New autECLWinMetrics
mWmet.SetConnectionByName "A" 'Monitor Session A
mWmet.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()
mWmet.UnregisterCommEvent
set mWmet = Nothing
End Sub
'This sub will get called when the Communication Link Status of the registered
'connection changes
Private Sub mWmet _NotifyCommEvent()
' do your processing here
End Sub
'This event occurs if an error happens in Communications Link event processing
Private Sub mWmet _NotifyCommError()
'Do any error processing here
End Sub
'This event occurs when Communications Status Notification ends
Private Sub mWmet _NotifyCommStop()
'Do any stop processing here
End Sub