CODE QUI ACCEPTE UNIQUEMENT LES MAJUSCULES
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
12 avril 2004 à 19:39
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 12 avril 2004 à 20:15
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 12 avril 2004 à 20:15
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/21878-code-qui-accepte-uniquement-les-majuscules
https://codes-sources.commentcamarche.net/source/21878-code-qui-accepte-uniquement-les-majuscules
12 avril 2004 à 20:15
j'avais lus pas de majuscule
anyway
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = asc(ucase(str(KeyAscii)))
End Sub
12 avril 2004 à 20:11
mieux ça, au moins ça blqoue pas les backspace
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.text = ucase(Text1.text) Then
KeyAscii = 0
End If
End Sub
12 avril 2004 à 19:39
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then KeyAscii = 0
End Sub
KeyAscii = KeyAscii VACHEMENT UTILE !!!
Restera la juste un moment pour bien montrer ce qu'il est stupide de poster.
BruNews, Admin CS, MVP Visual C++