GefObjectEvent (object)

Represents an event configured for an object.
Description: The GefObjectEvent represents an event configured for an object. See GefEvent for events that have occurred.

The Type property determines which of the other properties are valid for this GefObjectEvent. Properties not listed in the following table apply to all event types.

Property Applies To
ActiveXEventName gefEventActiveX
Expression gefEventExpressionHigh, gefEventExpressionUpdate
Key gefEventKeyDown, gefEventKeyUp, gefEventWhileKeyDown
KeyModifier Flags gefEventKeyDown, gefEventKeyUp, gefEventWhileKeyDown
PeriodicTimeMS gefEventPeriodic, gefEventWhileKeyDown, gefEventWhileLBMouseDown


Example:

Sub GefObjectEvent_ActionName()
    
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    If Not oCimObjEvnts Is Nothing Then
        Set oCimObjEvnt = oCimObjEvnts.Item(0)
        If Not oCimObjEvnt Is Nothing Then
            MsgBox "The first action's name was " & _
                oCimObjEvnt.ActionName
        End If
    End If
    
End Sub
Properties: ActionName , ActionType , ActiveXEventName , Application , DebounceEvent , Expression , Key , KeyModifierFlags , MenuText , Parent , PeriodicTimeMS , TranslateMenuText , Type , UserParameter
Methods: SetAction , SetKey