Discussion :

[BassBeat]

Bonjour,

J'ai créé un formulaire Form1 composé de 2 TextBox et d'un bouton.
Voici le code condensé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Class Form1
 
Private Sub Textbox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Textbox1.KeyUp
  If e.KeyCode = Keys.Enter Then SendKeys.Send("{Tab}")
End Sub
 
Private Sub Textbox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Textbox2.KeyUp
  If e.KeyCode = Keys.Enter Then SendKeys.Send("{Tab}")
End Sub
 
Private Sub Bouton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton1.Click
  If Textbox1.Text = Textbox2.Text Then
   MotDePasse = Textbox1.Text
   Me.Close()
  Else
   MsgBox("Erreur de saisie.", MsgBoxStyle.OkOnly)
   Textbox1.Text = ""
   Textbox2.Text = ""
   Textbox1.Focus()
  End If
 End Sub
 
End Class

Mon problème : si l'utilisateur se sert de la touche Enter pour quitter la MsgBox, l'évènement Textbox1.KeyUp est déclenché (puisque c'est lui qui reçoit le focus), donc le focus passe au Textbox2.

J'ai essayé de mettre e.Handled=True avant ou après l'envoie de {Tab}, mais ça ne change rien.

Je me demandais si il n'y avait pas moyen de tester de quel "endroit" vient l'appui de la touche : si je pouvais déterminer que ma touche "Enter" a été pressée dans ma MsgBox, je pourrais ne pas effectuer l'envoi de {Tab}... Je pensais qu'en testant le type de 'sender' je pourrais faire ça, mais visiblement, c'est toujours un Textbox.
Du reste, je ne connais son type qu'en faisant un point d'arrêt pour étudier sender dans l'éditeur, car je ne comprends pas comment fonctionne GetType.

Sinon, comment faire pour supprimer les données du flux du clavier avant de mettre le focus sur Textbox1 ?

Merci d'avance pour vos conseils.

[thierry007]

Et si tu test l'origine avec focused

if textbox.focused then
...
...
end if

[BassBeat]

Et si tu test l'origine avec focused

if textbox.focused then
...
...
end if

Je vais essayer ce soir, mais a priori, si l'événement KeyUp se déclenche sur le textbox, c'est que le focus est déjà sur lui, donc dans mon test, textbox1.focused sera toujours à True, non ?

[netomin]

Pour plus d'informations sur les textbox's svp:
http://plasserre.developpez.com/v3-4.htm

Sinon, je te conseille plutôt d'utiliser l'evenement KeyPress pour tes texbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then SendKeys.Send("{Tab}")
    End Sub

Je pense que ton probleme vient du fait de l'ordre de l'éxecution de ton code, après le Enter pour sortir du msgbox ton textbox1 obtient le focus et ensuite l'évènement KeyUp passe le focus à ton textbox2.

Avec KeyPress tu n'aura plus ce problème.

[BassBeat]

Pour plus d'informations sur les textbox's svp:
http://plasserre.developpez.com/v3-4.htm

Je ne connaissais pas, merci pour le lien.

Je pense que ton probleme vient du fait de l'ordre de l'éxecution de ton code, après le Enter pour sortir du msgbox ton textbox1 obtient le focus et ensuite l'évènement KeyUp passe le focus à ton textbox2.

Avec KeyPress tu n'aura plus ce problème.

Merci beaucoup. En fait j'avais posé la question pour changer Enter en Tab il y a bien longtemps, et la solution de gérer cela dans KeyUp m'avait été proposée, et cela fonctionne bien dans la majorité des cas. En refaisant récemment une recherche sur le forum, c'est également KeyUp qui est conseillé dès que la question est posée...

Donc effectivement, j'ai essayé avec KeyPress et cela fonctionne à merveille (c'est même très logique, comme tu l'as expliqué toi-même).

Donc un grand merci à toi, notemin.

PS. : Cela dit, pour ma culture personnelle : j'ai un vague souvenir en C (ou Pascal ?) d'une fonction "flush" qui supprimait la pile du clavier. Y a-t-il un équivalent en VB.NET ? (je n'ai rien trouvé dans la doc de VB Express).

[netomin]

Donc un grand merci à toi, notemin.

De rien mais c'est Netomin,

j'ai un vague souvenir en C (ou Pascal ?) d'une fonction "flush" qui supprimait la pile du clavier. Y a-t-il un équivalent en VB.NET ? (je n'ai rien trouvé dans la doc de VB Express).

Aucune idée, je ne me souviens pas de cette fonction, il faut que je m'y mette. a+