VbNext

ITcEnumEvents::VbNext

Diese Methode gibt die nächsten Events in der Aufzählungsreihenfolge zurück.

HRESULTNext(
    [in] long celt,
    [in,out]SAFEARRAY(VARIANT)*elements, 
    [out, retval] long *pceltFetched);

Parameter

celt

[in] Anzahl der angefragten Elemente der Aufzählungsphase.

ppElements

[in] Pointer auf ein safearray, das mit pceltFetched Event Objekten gefüllt wird.

pceltFetched

Gibt die Anzahl der zurückgegebenen Events zurück.

Rückgabe Werte

S_OK

Funktion wurde erfolgreich aufgerufen.

S_FALSE

Die Anzahl der zurückgegebenen Elemente war kleiner als die der Angefragten.

E_POINTER

Elements oder pceltFetched waren keine gültigen Pointer.

Visual Basic Beispielcode

' get the one and only event logger
Dim evtLogger As TCEVENTLOGGERLib.TcEventLog
Set evtLogger = New TCEVENTLOGGERLib.TcEventLog

' get the active event enumaration object
Dim enumEvt As ITcEnumEvents
Set enumEvt = evtLogger.EnumActiveEvents

' try to get max events an loop through the event list
Const coMax As Long = 20
Dim i As Long
Dim nFetched As Long
Dim evt As TcEvent
Dim arrEvt() As Variant

Do
  nFetched = enumEvt.VbNext(coMax, arrEvt)
  For i = LBound(arrEvt) To UBound(arrEvt)
    Set evt = arrEvt(i)
    ' print the event message in english
    Debug.Print evt.GetMsgString(1033)
    ' release the evt object
    Set arrEvt(i) = Nothing
  Next i
Loop While (nFetched >= coMax)