|
ED
|
not used
|
RT
|
avaliable
|
Event is fired, when a new item in the List is selected...
'########################################################## '### Procedures/Events for the Alarmlist ### '########################################################## Private Sub zAMLPIC_Open() 'boolen flag to remember the open event bAML = True 'init AML Object to get the AlarmListSelectionChanged event Set zAML = thisProject.Alarm End Sub Private Sub zAMLPIC_Close() 'release object Set zAML = Nothing End Sub Private Sub zAML_AlarmListSelectionChanged(ByVal obItem As IAlarmItem) 'If the boolen is TRUE, the first events can be ignored 'because in this case the events returns the default 'selection on opening the picture If bAML = True Then bAML = False Else Debug.Print "A_Changed - " & obItem.Text End If End Sub