GetEventByIndex(Index)

Retorna um objeto Evento de uma Coleção de Eventos, especificado pelo parâmetro Index, que corresponde ao índice do objeto na Coleção. Para mais informações sobre as propriedades do objeto retornado por este método, consulte o tópico Evento - Propriedades. Exemplo de script para este método:

Sub CommandButton_Click()
  For i = 0 To Screen.Item("FiltroAlarmes1").AlarmCount - 1
    str = ""
    set evt = Screen.Item("FiltroAlarmes1").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