Detecting Enter keypress on VB NET

Question

I am using  NET 3 5 framework of VB NET 2008   I have some textboxes in my form  I want the tab-like behavior when my user presses ENTER on one of my textboxes  I used the following code   Private Sub txtDiscount KeyPress ByVal sender As Object  ByVal e As System Windows Forms KeyPressEventArgs  Handles txtDiscount KeyPress     If e KeyChar   Microsoft VisualBasic ChrW Keys Return  Then         SendKeys Send   TAB            e Handled   True     End If End Sub   But it doesn t work for me   What is the solution

User · Accepted Answer

There is no need to set the KeyPreview Property to True. Just add the following function.

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, _
                                           ByVal keyData As System.Windows.Forms.Keys) _
                                           As Boolean

    If msg.WParam.ToInt32() = CInt(Keys.Enter) Then
        SendKeys.Send("{Tab}")
        Return True
    End If
    Return MyBase.ProcessCmdKey(msg, keyData)
End Function

Now, when you press Enter on a TextBox, the control moves to the next control.

User · Answer

Use this code it will work OK  You shall click on TextBox1 and then go to event and select Keyup and double click on it  You wil then get the lines for the SUB   Private Sub TextBox1 KeyUp ByVal sender As System Object  ByVal e As       System Windows Forms KeyEventArgs  Handles TextBox1 KeyUp     If e KeyCode   Keys Enter Then         MsgBox  Fel l  senord        End If End Sub

User · Answer

I had the same problem and I could not make this answer work on Framework 2 0 so I dug deeper   You would have to first handle the PreviewKeyDown on the textbox so when  ENTER came along you would set IsInputKey so that it could be handled by or forwarded to the keyDown event on the textbox  Like this   Private Sub txtFiltro PreviewKeyDown ByVal sender As System Object  ByVal e As System Windows Forms PreviewKeyDownEventArgs  Handles txtFiltro PreviewKeyDown     Select Case e KeyCode         Case Keys Enter             e IsInputKey   True     End Select  End Sub   and then you would handle the event keydown on the textbox  One of the answer was on the right track but missed setting the e IsInputKey   Private Sub txtFiltro KeyDown ByVal sender As System Object  ByVal e As System Windows Forms KeyEventArgs  Handles txtFiltro KeyDown     If e KeyCode   Keys Enter Then         e handled   True         Textbox1 Focus       End If End Sub

User · Answer

I have test this code on Visual Studio 2019  Its working superb   Just Paste it into you form code   it will work on all textboxs on same form   Protected Overrides Function ProcessCmdKey ByRef msg As System Windows Forms Message  ByVal keyData As System Windows Forms Keys  As Boolean     Dim keyCode As Keys   CType msg WParam  IntPtr  ToInt32     Const WM KEYDOWN As Integer    amp H100      If msg Msg   WM KEYDOWN AndAlso keyCode   Keys Enter        AndAlso Me ActiveControl GetType Name    TextBox  Then         Me SelectNextControl Me ActiveControl  True  True  False  True          Return True      End If     Return MyBase ProcessCmdKey msg  keyData    End Function

User · Answer

Private Sub SomeTextBox KeyPress sender As Object  e As KeyPressEventArgs  Handles SomeTextBox KeyPress      If Asc e KeyChar    13 Then          MessageBox Show  Enter pressed             e Handled   True     End If  End Sub

User · Answer

Use KeyDown Event instead of KeyPress  If e KeyCode   Keys Enter Then    MsgBox   You pressed enter   End if   Note  Make sure you don t have ACCEPT BUTTON set on your form  AcceptButton set it to  none

User · Answer

also can try this    If e KeyChar   ChrW Keys Enter  Then       Do Necessary code here End If

User · Answer

I see this has been answered  but it seems like you could avoid all of this  remapping  of the enter key by simply hooking your validation into the AcceptButton on a form  ie  you have 3 textboxes  txtA txtB txtC  and an  OK  button set to be AcceptButton  and TabOrder set properly   So  if in txtA and you hit enter  if the data is invalid  your focus will stay in txtA  but if it is valid  assuming the other txts need input  validation will just put you into the next txt that needs valid input thus simulating TAB behaviour    once all txts have valid input  pressing enter will fire a succsessful validation and close form  or whatever     Make sense

User · Answer

You can use PreviewKeyDown Event  Private Sub txtPassword PreviewKeyDown ByVal sender As System Object  ByVal e As System Windows Forms PreviewKeyDownEventArgs  Handles txtPassword PreviewKeyDown     If e KeyCode   Keys Enter Then         Call btnLogin Click sender  e      End If End Sub   Tested on VB NET 2010

User · Answer

The following code will work   Public Class Form1     Private Sub TextBox1 KeyPress ByVal sender As System Object  ByVal e As System Windows Forms KeyPressEventArgs  Handles TextBox1 KeyPress         If e KeyChar   Convert ToChar 13  Then             MsgBox  enter key pressd            End If     End Sub End Clas  Public Class Form1     Private Sub TextBox1 KeyDown ByVal sender As System Object  ByVal e As System Windows Forms KeyEventArgs  Handles TextBox1 KeyDown         If e KeyCode   Keys Enter Then             MsgBox  enter key pressd            End If     End Sub End Class

User · Answer

Private Sub BagQty KeyPress sender As Object  e As KeyPressEventArgs  Handles BagQty KeyPress          Select e KeyChar              Case Microsoft VisualBasic ChrW Keys Return                  PurchaseTotal Text   Val ActualRate Text    Val BagQty Text          End Select       End Sub

User · Answer

use this code this might help you to get tab like behaviour when user presses enter    Private Sub TxtSearch KeyPress sender As Object  e As System Windows Forms KeyPressEventArgs  Handles TxtSearch KeyPress     Try         If e KeyChar   Convert ToChar 13  Then            nexttextbox setfoucus          End If     Catch ex As Exception         MsgBox ex Message      End Try End Sub

User · Answer

Make sure the form KeyPreview property is set to true   Private Sub Form1 KeyPress ByVal sender As Object  ByVal e As System Windows Forms KeyPressEventArgs  Handles Me KeyPress     If e KeyChar   Microsoft VisualBasic ChrW Keys Return  Then         SendKeys Send   TAB            e Handled   True     End If  End Sub

User · Answer

In the KeyDown Event    If e KeyCode   Keys Enter Then        Messagebox Show  Enter key pressed    end if

User · Answer

I m using VB 2010  NET 4 0 and use the following   Private Sub tbSecurity KeyPress sender As System Object  e As System EventArgs  Handles tbSecurity KeyPress     Dim tmp As System Windows Forms KeyPressEventArgs   e     If tmp KeyChar   ChrW Keys Enter  Then         MessageBox Show  Enter key       Else         MessageBox Show tmp KeyChar      End If  End Sub   Works like a charm

[vb.net] Detecting Enter keypress on VB.NET

Examples related to vb.net