| Gets the GefObjectEvent for the specified event type. | |
| Syntax: | Set GefObjectEvent = object.GetKeyUp ( Key, KeyModFlags, Create ) |
| Parameters: |
Key As
long -
Optional KeyModFlags As long - If specified as True, an event
of this type will be created if one does not already exist. The
default is False.
Optional Create As Boolean
-
|
| Description: | The Key and KeyModFlags parameters
indicate which key event is being used. Example: Sub GefObjectEvents_GetKeyUp() Dim oCimObj As GefObject Dim oCimObjEvnts As
GefObjectEvents Dim oCimObjEvnt As
GefObjectEvent Set oCimObj = CimGetObject Set oCimObjEvnts =
oCimObj.Events Set oCimObjEvnt =
oCimObjEvnts.GetKeyUp(65, 0, False) If Not oCimObjEvnt Is Nothing
Then MsgBox "The
event's action name is " & _ oCimObjEvnt.ActionName Else MsgBox "There
are no Key up events configured " & _ "for
the letter 'A'" End If End Sub |