OnLoggedEventsCleared

_ITcEventLogEvents

Diese Event Methode wird auf allen Clients aufgerufen, die diese Event Schnittstelle implementieren und verbinden.

Vorausgesetzt:

·         Alle logged Events sind gelöscht.

·         Die Methode wird vom SPS Funktionsblock ADSCLEAREVENTS ausgeführt. Dabei muss der iMode auf TCEVENTLOGIOFFS_CLEARLOGGED oder TCEVENTLOGIOFFS_CLEARALL gesetzt sein.

·         Die Methode wird durch ITcEventLog::ClearLoggedEventsaufgerufen.

HRESULT OnLoggedEventsCleared();

Option Explicit

Dim WithEvents evtLogger As TCEVENTLOGGERLib.TcEventLog

' form load
Private Sub Form_Load()
  ' get the one and only event logger
  Set evtLogger = New TcEventLog
End Sub

' event method
Private Sub evtLogger_OnLoggedEventsCleared()
  Debug.Print "Logged Event are cleared!"
End Sub