PauseAlarmRead方法示例

下列示例在将报警拷贝到列表之前暂停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