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. Example of a script for 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