Discussion :

[thierry007]

Bonjour a tous
Drôle d'histoire. Dans le code ci-dessous

Lorsque je tape des caractères dans la textbox 'QueryClient' il m'affiche le msgbox a chaque lettre que je tapes, hors c'est la seul méthode liée au 'QueryClient' avec le KeyPress.
Pourquoi....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Public Sub Txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles QueryClient.KeyPress, TxtAdresse.KeyPress, _
            TxtadresseSuite.KeyPress, TxtBanque.KeyPress, TxtComplement.KeyPress, TxtCp.KeyPress, TxtEMail.KeyPress, TxtFax1.KeyPress, TxtFax2.KeyPress, TxtGsm.KeyPress, TxtIban.KeyPress, _
             TxtNom.KeyPress, TxtRemarques.KeyPress, TxtTel1.KeyPress, TxtTel2.KeyPress, TxtTva.KeyPress, TxtVille.KeyPress, CbPays.KeyPress, CbSocial.KeyPress, DgVilles.KeyPress
 
            If Asc(e.KeyChar) = Keys.Return Then e.Handled = True
 
      End Sub
 
      Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown
 
            If e.KeyCode = Keys.Return Then Msgbox("coucou")
      End Sub

[thierry007]

Pour info en ajoutant un msgbox, cela annule le RETURN, mais comment savoir d'ou il vient

Code :

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

1
2
3
4
5
6
7
8
9
  Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown
 
            If e.KeyCode = Keys.Return Then
                  LoadDgClient("SELECT * FROM Clients WHERE Nom LIKE '%" & QueryClient.Text & "%' ORDER BY Nom")
                  MsgBox(e.KeyCode)
 
            End If
 
      End Sub

[thierry007]

Désolé je vient de répondre a ma question

voici

Code :

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

1
2
3
4
5
6
7
8
9
10
  Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown
 
            If e.KeyCode = Keys.Return Then
 
                  LoadDgClient("SELECT * FROM Clients WHERE Nom LIKE '%" & QueryClient.Text & "%' ORDER BY Nom")
                  e.Handled = True
 
            End If
 
      End Sub