J'ai un petit souci, pas de bug ni rien sauf que je n'ai pas le résultat que je souhaite. Bon, avant de vous dire ce que c'est mon problème, voici mon code :
[b]Private Sub txtuser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtuser.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
If Me.txtuser.Text = "" Then
MsgBox("Ce champ est obligatoire. Veuillez le remplir.", MsgBoxStyle.Information, "Madrassati")
Else
Me.txtpass.Focus()
End If
Else
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Tab) Then
MsgBox("Pour atteindre le champ suivant, veuillez cliquez sur ENTRER", MsgBoxStyle.Information, "toto")
End If
End If
End Sub/b
Voilà, que je clique sur ENTRER j'obtiens le résultat désiré et quand je clique sur TABULATION je ne reçois pas le message mais le focus passe directement au bouton.
et en vb.net de préférence...
(ps : j'ai mis ENTER mais c'est peut-être RETURN... à vérifier)
Private Sub txtuser_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtuser.KeyDown
If e.KeyCode = Keys.Enter Then
If txtuser.Text.Length = 0 Then
MessageBox.Show("Ce champ est obligatoire. Veuillez le remplir.", "Madrassati", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
txtpass.Focus()
End If
ElseIf e.KeyCode = Keys.Tab Then
MessageBox.Show("Pour atteindre le champ suivant, veuillez cliquez sur ENTRER", "toto", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Merci pour vos réponses.
J'ai utilisé le down avec la méthode que vous venez de me montrer. Pour la touche ENTER ou RETURN (ils marchent tous les deux avec la touche ENTRER) j'obtiens le résultat désiré, mais quand je clique sur TAB le focus passe au composant suivant et ce n'est pas ce que je désire, car au lieu de passer au composant suivant, il doit m'afficher un message.
C'est mon souci, car même avec le KeyPress j'obtiens le même résultat.
j'ai le meme probleme:
Private Shadows Sub grptxt_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles grptxt.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
MsgBox("ça marche..?")
ET CELA NE MARCHE MALHEURESEMENT PAS..
merci de me proposer une solution
non novae sed nova... (rien de nouveau sauf la manière)
