INTERDIRE LES MINISCULES ....
FirSteph
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007
-
25 oct. 2002 à 17:49
jcrashmen Messages postés 14 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 27 février 2005 - 30 mai 2003 à 05:41
jcrashmen Messages postés 14 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 27 février 2005 - 30 mai 2003 à 05:41
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/4884-interdire-les-miniscules
https://codes-sources.commentcamarche.net/source/4884-interdire-les-miniscules
30 mai 2003 à 05:41
j'ai un prob j'aimerais interdire les touches CTRL+ALT+SUPP
quelqu'un à une suggestion??
16 janv. 2003 à 23:34
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
KeyAscii = KeyAscii - 32
End If
End Sub
Pour répondre à FirSteph, on peut po f'r ce code pr écrir en diret, sinon, tt s'affiche à l'envers (ex: si on tape bonjour, on aura écrit RUOJNOB) ou alors, il fo le mettre entre Text1_LostFocus()
25 oct. 2002 à 20:23
dans la solution bydavid, il y a un problème. Si on fait un copier-coller, les minuscules passeront.
Pensez-y aussi si vous voulez interdire l'utilisation de certains caractères !!!
25 oct. 2002 à 19:17
25 oct. 2002 à 17:59
Une kestion, si je veux que tous mes contrôles Text de mon applie fassent ça (mettre en MAJ) ou autre... ESKE je suis obligé de mettre cette fonction à tous les keypress de chaque Text ou alors on peut créer un control perso ? (et comment alors?) merci
25 oct. 2002 à 17:49
Private Sub Text1_Change()
Text1.Text = Ucase(Text1.Text)
End Sub
Et pour avoir en minuscule il suffit de changer Ucase par Lcase .
Voila, bonne prog !