GefObjectEvent.DebounceEvent (property)

Gets and sets if the event should be debounced.
Syntax: Boolean = object.DebounceEvent
object.DebounceEvent = Boolean
Description: This property controls if multiple actions for an event can be in the action queue at one time. The default value is true, meaning that the action for an event must complete before the event will trigger the action again. If false multiple actions can be queued for execution for a particular event on an object.


Sub GefObjectEvent_DebounceEvent()
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    If Not oCimObjEvnt Is Nothing Then
      oCimObjEvnt.DebounceEvent = False
    End If
End Sub