Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : KeyPress_09_only
Filtre les touches (numérique) enfoncées sur une zone de saisie.
(Consulté 18894 fois.)

Private Function KeyPress_09_Only(KeyAscii As Integer) As Integer
' Filtre la saisie d'une zone de texte pour n'accepter que les caractères de 0 à 9.
' (Fonction à appeler dans un évènement KeyPress en passant la valeur KeyAscii)
If (KeyAscii > 31) And (InStr(1, "0123456789", Chr$(KeyAscii)) <= 0) Then
' On fait attention à bien laisser passer les KeyAscii inférieurs à 32
' puisqu'ils représentent des cas spéciaux (comme [BackSpace] par exemple).
   
KeyPress_09_Only = 0
Else
   
KeyPress_09_Only = KeyAscii
End If
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr