ResumeAlarmRead 方法示例

在把报警拷贝到列表后，下列示例继续更新Alarm Summary对象。

'暂停报警读取操作，从而不添加、删除或移动任何内容

AlarmSummaryOCX1.PauseAlarmRead

lngTotalFiltered = AlarmSummaryOCX1.TotalFilteredAlarms

ListBox1.Clear

For lngLoop = 1 To lngTotalFiltered

AlarmSummaryOCX1.SelectAlarmRow lngLoop, True

AlarmSummaryOCX1.GetSelectedNodeTag strNode, strTag

ListBox1.AddItem strNode & "."

AlarmSummaryOCX1.SelectAlarmRow lngLoop, False

Next lngLoop

'继续报警读取操作

AlarmSummaryOCX1.ResumeAlarmRead