ResumeAlarmRead方法示例
2015-12-15 22:24:20   来源：   评论：0 点击：

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

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

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

'继续报警读取操作

AlarmSummaryOCX1.ResumeAlarmRead