////////////////////////////////////////////////////////
 // plutot que de contrôler à posteriori le contenu d'un champ de    //
 //  saisie pour voir s'il ne contient que les caractères autorisés,    //
 //  pourquoi ne pas faire ce contrôle au fûr et à mesure en           //
 //  rejetant immédiatement les caractères interdits.                    //
 // un ch'tit exemple on l'on n'autorise que la saisie de Chiffres //
 ////////////////////////////////////////////////////


<script type="text/javascript"><!----------------
//~~~~~~~~~~~~~~~~~~~~~~~~~~ #        #                             #
function SUC(champ) //~~ initialisation ~~ Saisir Uniquement des Chiffres
//~~~~~~~~~~~~~~~~~~~~~~~~~~ #        #                             #
{
 this.champ=champ;
 var Lui=this;
 var ie = false; /*@cc_on ie = true; @*/
 if ( ie ) {
     this.champ.onkeypress = Lui.IE;
    }
 else  { 
     this.champ.onkeyup = function(e)
      {
       Lui.FF(this, e);
      }
    }
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUC.prototype.IE=function() //~~ pour Internet Explorer ~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{
 if ( event.keyCode<0x30 || event.keyCode>0x39 )
 {
  event.returnValue= false;
 }
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUC.prototype.FF=function(zone,evt) //~~ pour FireFox ~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{
 if ( evt.which<0x30 || evt.which>0x39 )
 {
  zone.value=zone.value.replace(/[^0-9]/g,"");
 }
}
// ----------------></script>


  //////////////////////////////////////
  // Exemple d'utilisation                                     //
  // <form  name="frm">                                 //
  //  <input name="txt"                                    //
  //    type="text" />                                       //
  // </form>                                                     //
  // <script type="text/javascript">      //
  //  new SUC( document.frm.txt );        //
  // </script>                                             //
  ///////////////////////////////

Private Sub BoiteAChiffres_KeyPress(KeyAscii As Integer)
'Keypress

Dim chaine
chaine = "0123456789 "
If InStr(1, chaine, Chr(KeyAscii)) = 0 And Not KeyAscii = 8 Then

    'KeyAscii = 8 est la touche Del
    'On bloque ce qui n'est pas compris dans la variable chaine sauf la touche Del

    Beep
    KeyAscii = 0
    'On assign un KeyAscii vide à la text box
End If
End Sub

<input type='text' name='fax' value=''   onKeypress="if((event.keyCode < 45 || event.keyCode > 57) &&  event.keyCode != 32 &&  event.keyCode != 8 &&  event.keyCode != 0) event.returnValue = false; if((event.which < 45 || event.which > 57)  &&  event.which != 32  &&  event.which != 8  &&  event.which != 0 ) return false;">

Plutôt que de se lancer dans la programmation d'une TextBox qui n'accepte que des valeurs numériques, on préfère utiliser le Control tout fait (qui se trouve dans la boîte à outils) : NumericUpDown

import javaw.swing.*;
JTextField champ = new JTextField (20);
champ.addFocusListener (
    new FocusAdapter {
        public void focusLost (FocusEvent f) {
            if ( ! ((JTextField) f.getComponent()).getText().matches("[0-9]*") {
                JOptionPane.showMessageDialog(null,"Merci de ne taper que des chiffres.","Erreur !",JOptionPane.ERROR_MESSAGE);
                ((JTextField) f.getComponent()).setText("");
            }
        }
    } );

Choisir dans la description du champ le Masque de saisie prédéfinie "Chiffres".
ou utiliser par programmation la propriété ..MasqueSaisie exemple :
MonChamp..MasqueSaisie = maskNum

{
Declarez un gestionnaire pour l'evenement OnKeyPress du/des composants TEdit 
a controler, puis inserez le code ci dessous :
 
'0'..'9' definit les caracteres de 0 a 9 (#48..#57)
#08 est obligatoire dans ce cas pour beneficier de la touche BackSpace
}
procedure TFormX.EditNKeyPress(Sender : TObject; var Key : char);
begin
    if not ( Key in ['0'..'9',#08] ) then Key := #0;
end;

<input type="text" id="champ">
<script>
var champ=document.getElementById("champ");
champ.onkeydown=function(evt){isNaN(Number(String.fromCharCode((evt||window.event).keyCode))) ? return true : return false;}
</script>

If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(","c) Or Char.IsControl(e.KeyChar)) Then e.Handled = True