Code:

1) Op uw formulier zijn er enkel textboxen aanwezig waarbij de eigenschap MultiLine = False is.


  Protected Overrides Sub OnKeyUp(ByVal e As System.Windows.Forms.KeyEventArgs)

    If e.KeyCode = Keys.Enter Then
      e.Handled = True
      Me.ProcessTabKey(Not e.Shift)
    Else
      e.Handled = False
      MyBase.OnKeyUp(e)
    End If

  End Sub


2) Op uw formulier bevinden zich ook textbosen waarbij cde eigenschape MultiLine = True en AcceptsReturn = True. Hier moeten we dus een aanpassing in onze routine aanbrengen, zoniet wordt de ENTER-toets niet meer aanvaard om een nieuwe lijn te starten. Uiteraard kan men dan maar deze textboxen verlaten via de TAB-toets.


  Protected Overrides Sub OnKeyUp(ByVal e As System.Windows.Forms.KeyEventArgs)

    If e.KeyCode = Keys.Enter Then
      If TypeOf Me.ActiveControl Is TextBox Then
        Dim txtBox As TextBox = DirectCast(Me.ActiveControl, TextBox)

        If txtBox.Multiline AndAlso txtBox.AcceptsReturn Then
          e.Handled = False
          MyBase.OnKeyUp(e)
          Exit Sub
        End If
      End If

      e.Handled = True
      Me.ProcessTabKey(Not e.Shift)
    Else
      e.Handled = False
      MyBase.OnKeyUp(e)
    End If

  End Sub


Om nu van de vervevelende BEEP verlost te zijn, wat eigenlijk duidt op een foutieve invoering, plaatst ge de volgende code bij het KeyPress-event van uw object, bijv.


  Private Sub txtBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBox1.KeyPress

    If e.KeyChar = Convert.ToChar(Keys.Enter) Then
      e.Handled = True
    End If

  End Sub