GefMoveAnimAttrib.SliderActionConfirm (property)

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.


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