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


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 " & _
        End If
    End If
End Sub
Properties: ActionName , ActionType , ActiveXEventName , Application , DebounceEvent , Expression , Key , KeyModifierFlags , MenuText , Parent , PeriodicTimeMS , TranslateMenuText , Type , UserParameter
Methods: SetAction , SetKey