Gets and sets whether the slider action associated the move animation presents a confirmation message before doing the setpoint action. | |
Syntax: | GefTriStateEnum = object.SliderActionConfirm object.SliderActionConfirm = GefTriStateEnum |
Description: | The SliderActionConfirm toggles whether or
not the slider actions prompts for confirmation. Example: Sub MoveAnimAttrib_SliderActionConfirm() Dim oCimObj As GefObject Dim oCimMoveAnim As
GefMoveAnim Dim oCimMoveAnimAttrib As
GefMoveAnimAttrib Set oCimObj = CimGetObject Set oCimMoveAnim =
oCimObj.MoveAnim If Not oCimMoveAnim Is Nothing
Then Set
oCimMoveAnimAttrib = oCimMoveAnim.HorizontalAttrib If Not
oCimMoveAnimAttrib Is Nothing Then Select
Case oCimMoveAnimAttrib.SliderActionConfirm Case
gefStateFalse MsgBox
"The object will not confirm the slide" Case
gefStateMixed MsgBox
"The object is in an unknown state " & _ "or
it is not set" Case
gefStateTrue MsgBox
"The object will confirm the slide" End
Select End
If End If End Sub |