Type | Description | |||
Long | A Long expression that defines the identifier of the OLE event. |
Private Sub G2antt1_UserEditorOleEvent(ByVal Object As Object, ByVal Ev As EXG2ANTTLibCtl.IOleEvent, CloseEditor As Boolean, ByVal Item As EXG2ANTTLibCtl.HITEM, ByVal ColIndex As Long) If (Ev.ID = -602) Then ' KeyDown Dim iKey As Long iKey = Ev(0).Value If iKey = vbKeyTab Then With G2antt1 CloseEditor = True .FocusColumnIndex = .FocusColumnIndex + 1 .SearchColumnIndex = .FocusColumnIndex End With End If End If