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