Comment detecter quel touche a ete presser

xcxl Messages postés 101 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 16 octobre 2015 - 5 oct. 2003 à 16:44
 Utilisateur anonyme - 5 oct. 2003 à 21:19
S.V.P
c'est pour un programe pour savoir ce que toulemonde tape(mot de passe)

1 réponse

Utilisateur anonyme
5 oct. 2003 à 21:19
bon alors d'abbord mais tru a la propriéter de la form "Keypreview" ensuite

tape dans le code

Private Sub Form_KeyPress(KeyAscii As Integer)

MsgBox KeyAscii ' keyascii est en fait la valeur de la touche appuyer

End Sub


Maintenant si tu veux que les toutes les touches soient pris en comptes et pas les caractères alphanumerique.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode

End Sub


Maintenant tu a dis que cetait pour un mot de passe donc voila je vais te faire un petit code d'accord.

Dim MotDePasse as string

'Admettotnt que t'es un textbox qui s'appelle Text1
Private sub Form_Load()
motdepasse="Fuck" ' marque ton motdeppasse ici
end sub
If Keyascii = 13 Then ' si il appuie sur entrer
If Text1.Text <> MotDePasse Then ' si la string de text1 est different de celle de mot de passe
MsgBox "Accès refuser,Veuillez vous reidentifier", 16, "Mot de passe incorrect"
Else ' sinon
MsgBox "Accés autoriser, passer une bonne journner", 64, "Mot de passe correct"
End If
End If


Maintenant si tu veux que le mot de passe ne gerre pas les majuscules et miuniscules change cette ligne :

If Text1.Text <> MotDePasse Then


par celle là

If UCase(Text1.Text) <> UCase(MotDePasse) Then


SI C'EST PAS CA QUE TU VOULER TU ME LE SIGNALE OK!! ;)
0
Rejoignez-nous