GefObjectEvent.ActionType (read-only property)

Gets the type of action.
Syntax: GefEventActionEnum = object.ActionType
Description: To change this property, use the SetAction method.


Sub GefObjectEvent_ActionType()
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    Select Case oCimObjEvnt.ActionType
        Case gefEventActionNone
            MsgBox "There was no action taken"
        Case gefEventActionScript
            MsgBox "A script was run"
        Case gefEventActionProcedure
            MsgBox "A procedure was used to run this script"
    End Select
End Sub