Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 nov. 2004 à 12:21
deja très (trop ?) présent sur le site
attention de bien veiller a autoriser les touches
Ctrl + X/V/C
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 16 nov. 2004 à 11:29
Bien plus personnalisable, je prefere un truc du genre :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Const Chaine_Autorisee = "0123456789"
If InStr(Chaine_Autorisee, Chr$(KeyAscii)) 0 Then KeyAscii 0
End Sub
Tu modifie la constante 'Chaine_Autorisee' et tu personnalise ta textbox comme tu veux.
Cela dit il y a déjà une centaine de sources qui explique ça !!!
cs_JP07
Messages postés59Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention10 février 2006 16 nov. 2004 à 11:20
simple pratique et utile :)
un petit truc : fallait penser aux chiffres decimaux :p
16 nov. 2004 à 12:21
attention de bien veiller a autoriser les touches
Ctrl + X/V/C
16 nov. 2004 à 11:29
Private Sub Text1_KeyPress(KeyAscii As Integer)
Const Chaine_Autorisee = "0123456789"
If InStr(Chaine_Autorisee, Chr$(KeyAscii)) 0 Then KeyAscii 0
End Sub
Tu modifie la constante 'Chaine_Autorisee' et tu personnalise ta textbox comme tu veux.
Cela dit il y a déjà une centaine de sources qui explique ça !!!
16 nov. 2004 à 11:20
un petit truc : fallait penser aux chiffres decimaux :p