GefProcAction.Type (read-only property)

Gets the type of the action.

Syntax:

Description:

You set the type indirectly using the various SetTo... methods.

Example:

Sub GefProcAction_Type()

Dim oCimObj As GefObject

    Dim oCimProceduresObj As
GefProcedures

    Dim oCimProcedObj As
GefProcedure

    Dim oCimProcActs As
GefProcActions

    Dim oCimProcAct As
GefProcAction

Set oCimObj = CimGetObject

    Set oCimProceduresObj =
oCimObj.Procedures

    If oCimProceduresObj.Count > 0
Then

        Set
oCimProcedObj = oCimProceduresObj.Item(0)

        Set
oCimProcActs = oCimProcedObj.Actions

        Set
oCimProcAct = oCimProcActs.Item(0)

        Select Case
oCimProcAct.Type

            Case
gefActionOpenScreen

                MsgBox
"The first action opens a screen"

            Case
gefActionCloseScreen

                MsgBox
"The first action closes a screen"

            Case
gefActionPrevScreen

                MsgBox
"The first action returns to the previous screen"

            Case
gefActionHomeScreen

                MsgBox
"The first action returns to the home screen"

            Case
gefActionAbsoluteSetpoint

                MsgBox
"The first action sets a points value"

            Case
gefActionRelativeSetpoint

                MsgBox
"The first action sets a points value"

            Case
gefActionRampSetpoint

                MsgBox
"The first action sets a points value"

            Case
gefActionVariableSetpoint

                MsgBox
"The first action sets a points value"

            Case
gefActionToggleSetpoint

                MsgBox
"The first action toggles a boolean point"

            Case
gefActionOverlayScreen

                MsgBox
"The first action overlays a screen"

            Case
gefActionExecuteCommand

                MsgBox
"The first action executes an external command"

            Case
gefActionInvokeMethod

                MsgBox
"The first action invokes a method on an OLE object"

            Case
gefActionVariableAssign

                MsgBox
"The first action sets the value of a variable"

            Case
gefActionInvokeScript

                MsgBox
"The first action calls a script"

            Case
gefActionPrintScreen

                MsgBox
"The first action prints the screen"

        End
Select

Else

        MsgBox "The
object does not have any procedures"

End If

End Sub

Gets the type of the action.
Syntax:	GefActionTypeEnum = object.Type
Description:	You set the type indirectly using the various SetTo... methods. Example: `Sub GefProcAction_Type()` `Dim oCimObj As GefObject` `Dim oCimProceduresObj As GefProcedures` `Dim oCimProcedObj As GefProcedure` `Dim oCimProcActs As GefProcActions` `Dim oCimProcAct As GefProcAction` `Set oCimObj = CimGetObject` `Set oCimProceduresObj = oCimObj.Procedures` `If oCimProceduresObj.Count > 0 Then` `Set oCimProcedObj = oCimProceduresObj.Item(0)` `Set oCimProcActs = oCimProcedObj.Actions` `Set oCimProcAct = oCimProcActs.Item(0)` `Select Case oCimProcAct.Type` `Case gefActionOpenScreen` `MsgBox "The first action opens a screen"` `Case gefActionCloseScreen` `MsgBox "The first action closes a screen"` `Case gefActionPrevScreen` `MsgBox "The first action returns to the previous screen"` `Case gefActionHomeScreen` `MsgBox "The first action returns to the home screen"` `Case gefActionAbsoluteSetpoint` `MsgBox "The first action sets a points value"` `Case gefActionRelativeSetpoint` `MsgBox "The first action sets a points value"` `Case gefActionRampSetpoint` `MsgBox "The first action sets a points value"` `Case gefActionVariableSetpoint` `MsgBox "The first action sets a points value"` `Case gefActionToggleSetpoint` `MsgBox "The first action toggles a boolean point"` `Case gefActionOverlayScreen` `MsgBox "The first action overlays a screen"` `Case gefActionExecuteCommand` `MsgBox "The first action executes an external command"` `Case gefActionInvokeMethod` `MsgBox "The first action invokes a method on an OLE object"` `Case gefActionVariableAssign` `MsgBox "The first action sets the value of a variable"` `Case gefActionInvokeScript` `MsgBox "The first action calls a script"` `Case gefActionPrintScreen` `MsgBox "The first action prints the screen"` `End Select` `Else` `MsgBox "The object does not have any procedures"` `End If` `End Sub`