ResumeAlarmRead Method Example

The following example resumes updating the Alarm Summary object after to copying alarms to list.

' pause alarm read so nothing is added, deleted or moved

AlarmSummaryOCX1.PauseAlarmRead

lngTotalFiltered = AlarmSummaryOCX1.TotalFilteredAlarms

ListBox1.Clear

For lngLoop = 1 To lngTotalFiltered

AlarmSummaryOCX1.SelectAlarmRow lngLoop, True

AlarmSummaryOCX1.GetSelectedNodeTag strNode, strTag

ListBox1.AddItem strNode & "." & strTag

AlarmSummaryOCX1.SelectAlarmRow lngLoop, False

Next lngLoop

' resume alarm read

AlarmSummaryOCX1.ResumeAlarmRead