[C++]

The _NewEnum property gets an enumerator object for the collection. An enumerator object provides serial access to the elements of the collection.

HRESULT get__NewEnum(
  IUnknown* ppEnum
);

Parameters

ppEnum

Address of an interface pointer that on return points to the IUnknown interface of an enumerator object that implements an IEnumVARIANT interface for the collection. An interface pointer to the IEnumVARIANT interface of the enumerator object can be retrieved by calling QueryInterface on the IUnknown interface returned.

Return Values

This property method returns S_OK if the call is successful; otherwise, it returns an error code.

Remarks

This property is read-only.

[Visual Basic]

The _NewEnum property gets an enumerator object for the collection. An enumerator object provides serial access to the elements of the collection.

Property _NewEnum As IUnknown

Property Value

Reference to an enumerator object that provides serial access to the elements of the collection.

Remarks

This property is read-only.

In Visual Basic and VBScript, this property is used implicitly in For Each...In...Next constructs.

Example Code

This VBScript script displays the names of all the actions that will be taken when the first alert in the collection of alerts defined for an FPCArray object is issued. It does not include error handling.

' Create the root object.
Dim root  ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")

' Declare the other objects needed.
Dim array		 ' An FPCArray object
Dim alertactions  ' An FPCAlertActions collection
Dim alertaction   ' An FPCAlertAction object
Dim alerts		' An FPCAlerts collection
Dim alert		 ' An FPCAlert object

' Get references to the array object 
' and the alerts collection.
Set array = root.GetContainingArray()
Set alerts = array.Alerts

' If at least one alert is defined in the alerts 
' collection, display the names of the alert actions
' defined for it.
On Error Resume Next
Set alert = alerts.Item(1)
Set alertactions = alert.Actions
If Err.Number = 0 Then
	For Each alertaction In alertactions
		WScript.Echo "Alert action name: " + alertaction.Name 
	Next
End If