NewAlarm事件示例
2015-12-15 22:24:29   来源：   评论：0 点击：

下列示例分析NewAlarm事件的节点列表和标签：

'分析新报警列表（可能不止一个）

Private Sub AlarmSummaryOCX1_NewAlarm(strNode As String, strTag As String)

Dim lngNumAlarms&, lngLoop&, strThisTag$, strThisNode$

' 计算发送给我们的新报警的数目

lngNumAlarms = Len(strTag) / 30

For lngLoop = 1 To lngNumAlarms&

'取得下一节点和标签

strThisNode = Mid(strNode, ((lngLoop - 1) * 8) + 1, 8)

strThisNode = Trim(strThisNode)

strThisTag = Mid(strTag, ((lngLoop - 1) * 30) + 1, 30)

strThisTag = Trim(strThisTag)

Next lngLoop

End Sub