GefProcAction.Type (read-only property)

Gets the type of the action.
Syntax: GefActionTypeEnum = object.Type
Description: You set the type indirectly using the various SetTo... methods.


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
        MsgBox "The object does not have any procedures"
    End If
End Sub