<< Click to Display Table of Contents >>
GetEventByIndex |
GetEventByIndex(Index)
Returns an Event object from an Events Collection, specified by the Index parameter, which corresponds to the index of an object on that Collection. For more information about the properties of the object returned by this method, please check topic Event - Properties. The next script contains an example of using this method.
Sub CommandButton_Click()
For i = 0 To Screen.Item("AlarmFilter1").AlarmCount - 1
str = ""
set evt = Screen.Item("AlarmFilter1").GetEventByIndex(i)
str = str & "AlarmSourceName = " &_
evt.AlarmSourceName & Chr(13)
str = str & "FullAlarmSourceName = " &_
evt.FullAlarmSourceName & Chr(13)
str = str & "EventTime = " &_
evt.EventTime & Chr(13)
str = str & "EventTimeUTC = " &_
evt.EventTimeUTC & Chr(13)
str = str & "InTime = " &_
evt.InTime & Chr(13)
str = str & "OutTime = " &_
evt.OutTime & Chr(13)
str = str & "AckTime = " &_
evt.AckTime & Chr(13)
str = str & "CurrentValue = " &_
evt.CurrentValue & Chr(13)
str = str & "ActorID = " &_
evt.ActorID & Chr(13)
str = str & "Area = " &_
evt.Area & Chr(13)
str = str & "ConditionName = " &_
evt.ConditionName & Chr(13)
str = str & "EventCategory = " &_
evt.EventCategory & Chr(13)
str = str & "EventType = " &_
evt.EventType & Chr(13)
str = str & "Message = " &_
evt.Message & Chr(13)
str = str & "Quality = " &_
evt.Quality & Chr(13)
str = str & "Source = " &_
evt.Source & Chr(13)
str = str & "SubConditionName = " &_
evt.SubConditionName & Chr(13)
str = str & "FormattedValue = " &_
evt.FormattedValue & Chr(13)
str = str & "UserField(1) = " &_
evt.UserField(1) & Chr(13)
str = str & "UserField(2) = " &_
evt.UserField(2) & Chr(13)
str = str & "UserField(3) = " &_
evt.UserField(3) & Chr(13)
str = str & "UserField(4) = " &_
evt.UserField(4) & Chr(13)
str = str & "Severity = " &_
evt.Severity & Chr(13)
str = str & "Acked = " &_
evt.Acked & Chr(13)
str = str & "AckRequired = " &_
evt.AckRequired & Chr(13)
str = str & "ConditionActive = " &_
evt.ConditionActive & Chr(13)
str = str & "Enabled = " &_
evt.Enabled & Chr(13)
str = str & "EventCLSID = " &_
evt.EventCLSID & Chr(13)
MsgBox str
Next
End Sub