<< Clique para Mostrar o Sumário >>
GetEventByIndex |
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. O script a seguir contém um exemplo de uso deste 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