Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Return Then ' wenn Eingabetaste (Returntaste) 
        ' gedrückt wird
            Me.QPanel3.SelectNextControl(Me.QPanel3.ActiveControl, True, False, _
              True, True) ' zur nächsten Textbox
            e.Handled = True
        End If
    End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        ' Mit Return und Pfeil-runter abwärts durch die Textboxen
        If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Down Then
            Me.QPanel3.SelectNextControl(Me.QPanel3.ActiveControl, True, False, _
              True, True) ' zur nächsten Textbox
            e.Handled = True
        End If
        ' Mit Pfeil-hoch aufwärts durch die Textboxen
        If e.KeyCode = Keys.Up Then
            Me.QPanel3.SelectNextControl(Me.QPanel3.ActiveControl, False, _
              False, True, True) ' zur vorherigen Textbox
            e.Handled = True
        End If
    End Sub

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

Beitrag wurde zuletzt am 07.01.10 um 01:23:33 editiert.