Discussion :

[gaetan.tranvouez]

Bonjour à tous
J'aimerai savoir quelle est la bibliothèque qui concerne l'événement keypress??

Merki

[Theocourant]

Bonjour à tous
J'aimerai savoir quelle est la bibliothèque qui concerne l'événement keypress??

Merki

Je ne comprends pas ta question ...

Un événement est associé à un objet.

Si tu nous diais dans quel cadre du recherche la gestion de cet événement, cela nous éclairerait et on pourrait t'aider.
Et avec un petit peu de code, ce serait mieux.

Merci

Théo

[gaetan.tranvouez]

En fait quand je compile, j'ai cette erreur: Erreur de compilation
"La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de meme nom"



et voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Function FiltrerSaisie(ByRef KeyAscii As Integer)
    Dim Filtre As String
    
    Filtre = "0123456789"
    If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Function
 
Private Sub Text3_KeyPress(ByVal KeyAscii As Integer)
   FiltrerSaisie KeyAscii
   
   End Sub

[gootsu]

Private Function FiltrerSaisie(ByRef KeyAscii As Integer)
Dim Filtre As String

Filtre = "0123456789"
If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Function

essai de mettre PUBLIC au lieu de PRIVATE comme ça pour voir!!

[Catbull]

Ton Text3 est-il en fait un groupe de controles? SI oui, il manque le paramètre Index dans la déclaration de ton évènement...

[jmfmarques]

tu ne crois pas que pour faire celà, tu pourrais te dispenser de ton filtrersaisie ?
En utilisant Isnumeric, par exemple...

Code :

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

1
2
3
4
5
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If Not IsNumeric(Chr(KeyAscii)) Then
      KeyAscii = 0
   End If
End Sub

ceci dit : as-tu pensé aux effacements-arrières ? A permettre ou non ?
L'effacement arrière a pour valeur ascii 8 (à tout hasard)

[gootsu]

Mais oui!
il a raison j'avai même pas caller ce que gaetan.tranvouez avait tapez comme lignes de code!!

[gaetan.tranvouez]

Nan j'y ai pas pensé et la tu me pose une colle...

[ThierryAIM]

et, au cas ou tu ne l'aurais pas vu dans le code de jmf, il n'y a pas de ByVal dans l'evenement

Code :

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

Private Sub Text3_KeyPress(KeyAscii As Integer)

[jmfmarques]

Alors ?
Modifie un peu ta condition... non ?
C'est facile...... je t'ai même donné sa valeur ascii !!!

[gaetan.tranvouez]

Merci à tous c'est réglé