S
I'm trying to use the CimEvent object in script of a button object, for instance :
Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "C:\Program Files\CIMPLICITY\HMI\projects\cimpdemo\cimpdemo.gef"
project.dynamicMode = True
Dim eventList As CimEventList
Set eventList = project.Events
' Retrieve event from event list
Dim e1 As CimEvent
Set e1=eventList.Item("TEST_EVENT")
If Not e1.Enabled Then
e1.Enable = True
Else
e1.Enabled= False
End If
' Modify event in the event list
eventList.Modify e1
But the BCE compiler complains that Enabled is not a property of e1, why?
Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "C:\Program Files\CIMPLICITY\HMI\projects\cimpdemo\cimpdemo.gef"
project.dynamicMode = True
Dim eventList As CimEventList
Set eventList = project.Events
' Retrieve event from event list
Dim e1 As CimEvent
Set e1=eventList.Item("TEST_EVENT")
If Not e1.Enabled Then
e1.Enable = True
Else
e1.Enabled= False
End If
' Modify event in the event list
eventList.Modify e1
But the BCE compiler complains that Enabled is not a property of e1, why?