Creates a new expression event and returns its GefObjectEvent. | |
Syntax: | Set GefObjectEvent = object.AddExpressionUpdate ( ) |
Description: | The AddExpressionUpdate method creates an
expression update event. Example: Sub GefObjectEvents_AddExpressionUpdate() Dim oCimObj As GefObject Dim oCimObjEvnts As
GefObjectEvents Dim oCimObjEvnt As
GefObjectEvent Set oCimObj = CimGetObject Set oCimObjEvnts =
oCimObj.Events Set oCimObjEvnt =
oCimObjEvnts.AddExpressionUpdate If Not oCimObjEvnt Is Nothing
Then oCimObjEvnt.Expression
= "$LOCAL.DATE.MINUTE" oCimObjEvnt.SetAction
"Procedure1", gefEventActionProcedure MsgBox "The
expression update event was added" Else MsgBox "The
expression update event was not added" End If CimGetScreen.Refresh False End Sub |