Alarm.AlarmItems

AlarmItems(strFilter As String) As AlarmItems

Parameters

strFilter As String

The filtering is not implemented at this time. For later use

Remarks

This method returns the object AlarmItems of the alarming module. In this collection all existing alarms are listed. With the method Item you can access single alarms. The single alarm entries contain information on the alarms.

Sample:

Public Sub GetAlarmItems()
	Dim zAML As Alarm
	Dim zAML_Items As AlarmItems
	Dim zAML_Item As AlarmItem
	Dim i As Integer
	'set alarm objects
	Set zAML = thisProject.Alarm
	Set zAML_Items = zAML.AlarmItems("*")
	'get count of active alarms...
	MsgBox zAML_Items.Count & " Alarms in memory..."
	'get text of active alarms...
	For i = 0 To zAML_Items.Count - 1
		Set zAML_Item = zAML_Items.Item(i)
		Debug.Print zAML_Item.Text
	Next i
End Sub

See Also

Alarm, AlarmItems