Detecting Entrez sur VB.NET

Question

keypress

J'utilise .NET Framework 3.5 de VB.NET 2008.

J'ai quelques zones de texte dans ma forme. Je veux le comportement semblable à une tabulation lorsque mon utilisateur appuie sur ENTRÉE dans une de mes zones de texte. J'ai utilisé le code suivant:

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 

Mais cela ne fonctionne pas pour moi.

Quelle est la solution?

Answer 1

Il n'est pas nécessaire de définir la propriété KeyPreview sur True. Ajoutez simplement la fonction suivante. Maintenant, lorsque vous appuyez sur Entrée sur un contrôle TextBox, le contrôle passe au contrôle suivant.

Answer 2

Assurez-vous que la propriété KeyPreview de formulaire est définie sur 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 

Answer 3

En cas KeyDown:

If e.KeyCode = Keys.Enter Then 
     Messagebox.Show("Enter key pressed") 
end if 

Answer 4

peut aussi essayer ceci:

If e.KeyChar = ChrW(Keys.Enter) Then 
    'Do Necessary code here 
End If 

Answer 5

Si e.KeyCode = 13 Alors SendKeys.Send ({ "TAB"}) « Instructions End If

Answer 6

J'utilise VB 2010 .NET 4.0 et utilise les éléments suivants:

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 

Fonctionne comme un charme!

Answer 7

Je vois que cela a été répondu, mais il semble que vous pourriez éviter tout ce remappage de la clé d'entrée en accrochant simplement votre validation dans le bouton AcceptButton sur un formulaire. c'est à dire. vous avez 3 zones de texte (txtA, txtB, txtC) et un bouton 'OK' défini pour être AcceptButton (et TabOrder réglé correctement). Donc, si dans txtA et vous appuyez sur Entrée, si les données sont invalides, votre focus restera dans txtA, mais si elle est valide, en supposant que les autres txts ont besoin d'entrée, la validation vous placera dans le prochain txt qui nécessite une entrée valide. simuler le comportement de TAB ... une fois que tous les txts ont une entrée valide, appuyer sur enter lancera une validation réussie et fermera la forme (ou quoi que ce soit ...).

Answer 8

Vous pouvez utiliser l'événement PreviewKeyDown

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 

Testé sur VB.NET 2010

Answer 9

J'ai eu le même problème et je ne pouvais pas faire ce travail de réponse sur Framework 2.0, donc je plongeai.

Vous devez d'abord gérer PreviewKeyDown dans la zone de texte. Lorsque ENTER est arrivé, vous devez définir IsInputKey afin qu'il puisse être géré par ou transmis à l'événement keyDown dans la zone de texte. Comme ceci:

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 

puis de gérer le raccourci d'événement dans la zone de texte. L'une des réponses était sur la bonne voie mais a manqué de régler l'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 

Answer 10

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 

Answer 11

utiliser ce code cela pourrait vous aider à obtenir onglet comme comportement lorsque l'utilisateur appuie entrer

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 

Answer 12

Le code suivant fonctionnera.

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 

Answer 13

Utilisez ce code pour que cela fonctionne. Vous devez cliquer sur TextBox1, puis aller à l'événement et sélectionner Keyup et double-cliquer dessus. Vous obtiendrez alors les lignes pour le 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 

Answer 14

If Asc(e.KeyChar) = 13 Then 
MessageBox.Show("Enter pressed!") 
e.Handled = True 
End If