Next
ITcEnumEvents::Next
Diese Methode gibt die nächsten Events in der Aufzählungsreihenfolge zurück.
HRESULT Next(
[in] long celt,
[out,size_is(celt),length_is(*pceltFetched)]IDispatch** ppElements,
[out, retval] long *pceltFetched);
Parameter
celt
[in] Anzahl der angefragten Elemente der Aufzählungsreihenfolge.
ppElements
[out, size_is(celt), length_is(*pceltFetched)] Pointer auf das erste Element eines Arrays aus Events. Gibt die durch pceltFetched vergebene Anzahl der Events zurück.
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
Elemente 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(1 To coMax) As Object
Do
nFetched = enumEvt.Next(coMax, arrEvt(1))
For i = 1 To nFetched
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)
Anmerkungen
Die Next Methode funktioniert nur, wenn die aufrufende Sprache eine echte Referenz auf den Array übergibt.
.NET Sprachen tun dies z.B. nicht. Aus solchen Sprachen benutzen Sie die VBNext Methode.