Gets the GefExecutionCondition condition that determines whether the slider action will occur. | |
Syntax: | Set GefExecutionCondition = object.SliderActionCondition |
Description: | The SliderActionCondition gets and sets the
execution conditions of the slider event. Example: Sub MoveAnimAttrib_SliderActionCondition() Dim oCimObj As GefObject Dim oCimMoveAnim As
GefMoveAnim Dim oCimMoveAnimAttrib As
GefMoveAnimAttrib Dim oCimExecCond As
GefExecutionCondition Set oCimObj = CimGetObject Set oCimMoveAnim =
oCimObj.MoveAnim If Not oCimMoveAnim Is Nothing
Then Set
oCimMoveAnimAttrib = oCimMoveAnim.HorizontalAttrib If Not
oCimMoveAnimAttrib Is Nothing Then Set
oCimExecCond = oCimMoveAnimAttrib.SliderActionCondition If
Not oCimExecCond Is Nothing Then MsgBox
"The expression is " & _ oCimExecCond.Expression End
If End
If End If End Sub |