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