neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -73,12 +73,20 @@ Public Class KdSearchBox
             ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv
             ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv
 
+
             If e.KeyCode = Keys.Tab Then
                 If usrcntl IsNot Nothing Then usrcntl.Visible = False
                 e.Handled = True
                 Exit Sub
             End If
 
+            If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab..
+                If usrcntl IsNot Nothing Then usrcntl.Visible = False
+                e.Handled = True
+                Exit Sub
+            End If
+
+
             If e.KeyCode = Keys.Return Then
                 e.Handled = True
                 Exit Sub
@@ -101,7 +109,6 @@ Public Class KdSearchBox
             End If
             If kdNrField IsNot Nothing Then kdNrField.Text = ""
 
-
             KdNr_value = -1
             KdData_KUNDE = Nothing
             KdData_ADRESSEN = Nothing