CRYPTOGRAMME

Commentaire de EBArtSoft le 14/09/2004 14:35:06 administrateur CS

Lol le probleme c'est que même un humain ne pourrais pas le decrypter... Non franchement ajoute juste un petit peu de contraste.

Sinon le programme en lui même est bien :)

@+

Commentaire de tmcuh le 14/09/2004 14:40:02

il suffit de changer le rgb (dans la fonction imagefond)...le mettre à 130 peut etre... c vrai qu'il serait ptet interressant de mettre un curseur pour le niveau de lisibilité ;)...

Amicalement tmcuh

Commentaire de KaViDee le 14/09/2004 19:54:33

ç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