From 63db534eeb7b2b3c79b4e6635101e2413b2bffc9 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 18 Oct 2019 12:28:38 +0200 Subject: [PATCH] jump to next control from grid --- app/DD_PM_WINDREAM/frmValidator.vb | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index be9422d..020a63b 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -880,7 +880,26 @@ Public Class frmValidator Where r.CONTROL_ID = oControlRow.Item("GUID") Select r).ToList() - oMyControl = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) + Dim oGrid = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) + + + AddHandler oGrid.ProcessGridKey, Sub(ByVal _sender As Object, ByVal e As KeyEventArgs) + + + If e.KeyCode = Keys.Tab Then + Dim gridControl = TryCast(_sender, GridControl) + Dim view = TryCast(gridControl.FocusedView, Views.Base.ColumnView) + + If (e.Modifiers = Keys.None And view.IsNewItemRow(view.FocusedRowHandle) And view.FocusedColumn.VisibleIndex = view.VisibleColumns.Count - 1) Then + If view.IsEditing Then + view.CloseEditor() + Me.SelectNextControl(gridControl, e.Modifiers = Keys.None, True, True, True) + e.Handled = True + End If + End If + End If + End Sub + oMyControl = oGrid Case "LINE" LOGGER.Debug("Versuch Linie zu laden")