CRYPTOGRAMME

Signaler
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
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/26163-cryptogramme

Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

voilà c'est résolut... encore des trucs?? lol
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

bien vu, j'avais pas pensé à cà... sinon ben je vois pas pq cà marche pas à tout les coups :s... et en quoi cà foire?

Amicalement tmcuh
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019

ça ne marche pas a tous les coups :(
ça marche une fois apré ça foire
sinon change moi ça

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.Text = UCase(Text1.Text) 'convertie le tout en majuscule
Text1.SelStart = Len(Text1) 'remet le pointeur à la fin
End Sub

par

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

ça fé + zoli kan on tape on voit pas le caractère en minuscule
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

humm idée interressante je vais y pencher ;)
Afficher les 7 commentaires