EMPECHER LA SAISIE DANS UNE TEXTBOX

Signaler
-
Messages postés
9
Date d'inscription
vendredi 10 octobre 2003
Statut
Membre
Dernière intervention
11 février 2004
-
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

Messages postés
9
Date d'inscription
vendredi 10 octobre 2003
Statut
Membre
Dernière intervention
11 février 2004

merci, ça marche aussi pour les combobox , vraiment bien !!
Messages postés
4
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
19 novembre 2003

Ca permet surtout de pouvoir jeter les caractères indésirables ex :

If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
Messages postés
8
Date d'inscription
mardi 6 mai 2003
Statut
Membre
Dernière intervention
3 août 2004

Il n'aurait pas été plus malin de mettre la propriété "Locked" à True ???
Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
4
pour demon5439 : un code tout bête :

If Right(Text1.Text, 1) = "," Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "."
End If
Afficher les 7 commentaires