Discussion :

[aectie]

Aider moi! j'aimerai écrire un code permettant d'afficher un message d'erreur lorsque la touche majuscule est activée lors de la saisie du mot de passe sur un formulaire de connexion.le message d'erreur est le suivant "Attention,la touche majuscule est activée,veuillez la désactiver avant de continuer"

NB:le message s'affiche tant que la touche majuscule est enfoncée

Merci de m'aider.:

[SfJ5Rpw8]

un petit tour dans la

Comment savoir si mon clavier est en majuscule ou pas?

[OhMonBato]

Bonjour également...

une possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_CAPITAL = &H14
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then Exit Sub
If GetKeyState(VK_CAPITAL) = 1 And (Shift And 1) = 0 Then
  Debug.Print "Majuscule activée"
ElseIf GetKeyState(VK_CAPITAL) = 0 And (Shift And 1) = 1 Then
  Debug.Print "Majuscule activée"
Else
  Debug.Print "majuscule désactivée"
End If
End Sub

[aectie]

Merci ! les ami(e)s ça marche sans probleme

[OhMonBato]

Merci alors de cliquer sur le bouton "Résolu" en bas de cette page.