EMPECHER LA SAISIE DANS UNE TEXTBOX
ADN
-
11 mars 2001 à 16:20
esoterik Messages postés 9 Date d'inscription vendredi 10 octobre 2003 Statut Membre Dernière intervention 11 février 2004 - 5 mars 2004 à 07:37
esoterik Messages postés 9 Date d'inscription vendredi 10 octobre 2003 Statut Membre Dernière intervention 11 février 2004 - 5 mars 2004 à 07:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/185-empecher-la-saisie-dans-une-textbox
https://codes-sources.commentcamarche.net/source/185-empecher-la-saisie-dans-une-textbox
5 mars 2004 à 07:37
17 déc. 2003 à 10:59
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
10 déc. 2003 à 12:29
27 oct. 2003 à 21:30
If Right(Text1.Text, 1) = "," Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "."
End If
2 janv. 2003 à 15:21
14 mars 2001 à 14:00
mais il y a un petit piège : le clic droit de la souris (copier/couper/coller et supprimer) !!!!
Il vous faut le neutraliser par Locked à vrai
11 mars 2001 à 16:20