[VB] Que des chiffres dans une zone text

Que des chiffres dans une zone text [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 12-12-2002 à 16:45:59    

bah vala je souhaiterai que l'utilisateur ne puisse rentré que des chiffre dans une zone texte
 
et voui ca doi etre tout con mais je trouve pu  [:virginie]  
 
mici

Reply

Marsh Posté le 12-12-2002 à 16:45:59   

Reply

Marsh Posté le 12-12-2002 à 16:53:54    

regarde l'evenement onKeyPressed, un ptit test sur les codes ascii et hop c fait ;-)

Reply

Marsh Posté le 12-12-2002 à 16:56:08    

Code :
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. End Sub


 
 
Comment je lui di la liste des Ascii ?

Reply

Marsh Posté le 12-12-2002 à 16:59:49    

ben tu fais un bete  
if keyascii> au code ascii de 0 AND keyascii<code ascii de 9
ds ce cas la tu px rentrer le texte, sinon tu fais rien
 
 
dsl g plus les codes ascii en tete :)


Message édité par redridinghood le 12-12-2002 à 17:00:17
Reply

Marsh Posté le 12-12-2002 à 17:03:48    

Code :
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. If KeyAscii < 31 Or KeyAscii > 39 Then KeyAscii = 0
  3. End Sub


 
si je met un and je peu denouvo mettr nimoprte koi

Reply

Marsh Posté le 12-12-2002 à 17:04:58    

arf c bon y voulé les code en decimal et pas hexa ;)
 
mici

Reply

Marsh Posté le 12-12-2002 à 17:08:33    

par contre jai trouvé comme mettre DEL aussi cad la touche Suppr
 
mais la touche delete ( <-- ) au dessu de ENTER je trouve pas son code :/

Reply

Marsh Posté le 12-12-2002 à 18:18:00    

idem, je sais pas comment faire ...

Reply

Marsh Posté le 12-12-2002 à 19:02:09    

Pour voir si la touche del (<--) "passe" bien par ce module (y a des trucs trop "système" qui sont traités des fois à un niveau plus haut), faut mettre un point d'arrêt sur la ligne de test
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii < 31 Or KeyAscii > 39 Then KeyAscii = 0
End Sub
 
Si le <-- passe par là, faut interroger le code KeyAscii pour savoir.
 
Sinon, faudrait regarder si y a pas un autre évènement sur cette zone texte qui pourrait aller (ai plus VB en tête).

Reply

Marsh Posté le 12-12-2002 à 19:08:31    

Je reconfirme (Cf l'autre topic) c'est 8 (back space). :jap:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed