Activer la touche CAPS LOCK du clavier

Bonjour,

Je souhaite activer la touche caps lock du clavier en automatique.

J'ai chercher sur le forum et j'ai trouver ce lien http://vb.developpez.com/faq/?page=S...DesactAcpsLock

J'ai donc recopier le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type Enum apiOnOff apiOn = 1 apiOff = 0 End Enum Dim kbArray As KeyboardBytes   Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long   Private Sub ChangerCapsLock(v As apiOnOff) GetKeyboardState kbArray kbArray.kbByte(&H14) = v SetKeyboardState kbArray End Sub

---

Cependant lors de la compilation plusieurs messages d'erreurs sont affichés:

Les instructions types ne sont plus pris en charge j'ai donc remplacé type par structure
A la ligne kbByte(0 To 255) As Byte, une erreur apparaît m'indiquant "Déclaration attendue"
A la ligne kbArray.kbByte(&H14) = v, une erreur est signalée m'indiquant "KbByte n'est pas un membre de WindowsApplication1.Module1.KeyboardBytes

Pour ces deux dernières erreur je ne trouve pas de solution

Merci pour votre aide.

Citation:

---

Envoyé par Gildas22

Bonjour,

Je souhaite activer la touche caps lock du clavier en automatique.

J'ai chercher sur le forum et j'ai trouver ce lien http://vb.developpez.com/faq/?page=S...DesactAcpsLock

J'ai donc recopier le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type Enum apiOnOff apiOn = 1 apiOff = 0 End Enum Dim kbArray As KeyboardBytes   Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long   Private Sub ChangerCapsLock(v As apiOnOff) GetKeyboardState kbArray kbArray.kbByte(&H14) = v SetKeyboardState kbArray End Sub

---

Cependant lors de la compilation plusieurs messages d'erreurs sont affichés:

Les instructions types ne sont plus pris en charge j'ai donc remplacé type par structure
A la ligne kbByte(0 To 255) As Byte, une erreur apparaît m'indiquant "Déclaration attendue"
A la ligne kbArray.kbByte(&H14) = v, une erreur est signalée m'indiquant "KbByte n'est pas un membre de WindowsApplication1.Module1.KeyboardBytes

Pour ces deux dernières erreur je ne trouve pas de solution

Merci pour votre aide.

---

Bonjour ,

N'oublie pas d'importer :

Code:

---

1 2	Imports System.Windows.Input Imports System.Runtime.InteropServices

---

Code:

---

1 2 3 4 5

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) End Sub

---

En espérant de t'avoir aidé :D

Citation:

---

Envoyé par NanowHD

Bonjour ,

N'oublie pas d'importer :

Code:

---

1 2	Imports System.Windows.Input Imports System.Runtime.InteropServices

---

Code:

---

1 2 3 4 5

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) End Sub

---

En espérant de t'avoir aidé :D

---

Bonsoir NanowHD,

Merci pour ta réponse,

Ton code marche partiellement. Si la touche caps lock est verrouillée alors ton code la déverrouille par contre si elle n'est pas verrouillée alors elle la verrouille.

Donc j'ai ajouté un test de vérification pour savoir si le caps lock est verrouillé avant le lancement de ton code et donc cela fonctionne.

Ci-dessous le code modifié:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) 'Ligne qui sert pour l'activation de la touche majuscule   Private Sub majuscule_verification(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If Control.IsKeyLocked(Keys.CapsLock) Then Else Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) 'Sert à activer la touche majuscule Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) 'sert à activer la touche majuscule End If   End Sub

---

Le seul problème est que si l'utilisateur saisi une touche et que le clavier n'est pas verrouillé alors le code verrouille bien le caps lock mais la touche saisie par l'utilisateur n'est pas prise en compte et donc celui ci est obligé de la saisir une deuxième fois.

Il faudrait un code qui mémorise la touche appuyée par l’utilisateur et la retranscrive après le verrouillage du caps lock.

Nouvelle étape à établir, je n'ai pas encore trouvé la solution pour l'instant.

Si toi ou quelqu'un d'autre a une idée de code je suis preneur.

Merci pour ton code qui m'a permis d'avancé :D

Tu veux vraiment passer en mode CAPS LOCK ou bien passer en majuscule en temps réel le texte saisi par l'utilisateur ?
Dans le 2ème cas, la solution la plus élégante consiste sans doute à passer utiliser l'event KeyPress (ou KeyDown, je ne sais plus) du champ en question.

Citation:

---

Envoyé par noftal

Tu veux vraiment passer en mode CAPS LOCK ou bien passer en majuscule en temps réel le texte saisi par l'utilisateur ?
Dans le 2ème cas, la solution la plus élégante consiste sans doute à passer utiliser l'event KeyPress (ou KeyDown, je ne sais plus) du champ en question.

---

Bonjour noftal,

Merci pour ta réponse.

Je veux passer en majuscule en temps réel le texte saisi par l'utilisateur.

Mon code est déjà passé sur l'event Keydown du Textbox en question.

Le seul problème est que si l'utilisateur saisi une touche et que le clavier n'est pas verrouillé alors le code verrouille bien le caps lock mais la touche saisie par l'utilisateur n'est pas prise en compte et donc celui ci est obligé de la saisir une deuxième fois.

Ce problème est lié à cette instruction:

Code:

---

If Char.IsLower(e.KeyChar) = True Then e.Handled = True ' Si minuscule ne saisi pas

---

En effet, il ne faut pas que l'utilisateur puisse saisir les caractères avec accent type (é, à, è...) donc cette instruction est obligatoire.

Donc le problème reste le même il faut un code qui mémorise la touche appuyée par l’utilisateur et la retranscrive après le verrouillage du caps lock.

Merci quand même.

Tu veux que la touche "é" affiche "2" ?

Le plus simple n'est-il pas un Select Case ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub TextBox1_keypress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim c As Char   Select Case e.KeyChar Case "&" c = "1" Case "é" c = "2" ... Case Else c = Char.ToUpper(e.KeyChar) End Select e.KeyChar = c   End Sub

---

Au pire tu as une quinzaine de cas à traiter : les touches de 1 à 9 + les touches de ponctuation.
Il y a peut-être plus concis, mais je pense qu'en terme d'efficacité et de rapidité, tu ne devrais pas être gêné.

Citation:

---

Envoyé par noftal

Tu veux que la touche "é" affiche "2" ?

Le plus simple n'est-il pas un Select Case ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub TextBox1_keypress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim c As Char   Select Case e.KeyChar Case "&" c = "1" Case "é" c = "2" ... Case Else c = Char.ToUpper(e.KeyChar) End Select e.KeyChar = c   End Sub

---

Au pire tu as une quinzaine de cas à traiter : les touches de 1 à 9 + les touches de ponctuation.
Il y a peut-être plus concis, mais je pense qu'en terme d'efficacité et de rapidité, tu ne devrais pas être gêné.

---

Bonsoir noftal,

Je me suis peut-être mal exprimé je ne veux pas que la touche "é" affiche 2 mais que la saisie de la touche "é" ne soit pas possible d'où la ligne de code

Code:

---

If Char.IsLower(e.KeyChar) = True Then e.Handled = True ' Si minuscule ne saisi pas

---

Donc la solution des case ne me convient pas.

Donc le problème reste le même il faut un code qui mémorise la touche appuyée par l’utilisateur et la retranscrive après le verrouillage du caps lock.

Merci quand même.

Citation:

---

Je me suis peut-être mal exprimé je ne veux pas que la touche "é" affiche 2 mais que la saisie de la touche "é" ne soit pas possible

---

Effectivement, je n'avais pas compris.
Dans ce cas, ça me semble encore plus simple (exemple pour les touches 1, 2, 3):

Code:

---

1 2	Case "&", "é", """" c =nothing

---

Citation:

---

Envoyé par noftal

Effectivement, je n'avais pas compris.
Dans ce cas, ça me semble encore plus simple (exemple pour les touches 1, 2, 3):

Code:

---

1 2	Case "&", "é", """" c =nothing

---

---

Bonsoir noftal,

Comme je te l'ai dis dans le précédent post ce qui m'intéresse c'est de pouvoir récupérer la touche qui est appuyée si la touche caps lock n'est pas activée pour qu' après avoir activé cette touche caps lock le programme puisse effectuer la saisie automatique de la touche saisie par l'utilisateur avant l'activation de la touche caps locks et ne pas obliger l'utilisateur à ressaisir cette touche.

Le code que tu me proposes est déjà géré par la fonction

Code:

---

If Char.IsLower(e.KeyChar) = True Then e.Handled = True ' Si minuscule ne saisi pas

---

Merci quand même ;)

Bonjour noftal,

J'ai utilisé le code que tu m'as conseillé car il n'est pas possible de récupérer le code de la touche saisi par l'utilisateur si la touche caps lock n'est pas verrouillée dans mon cas puisque j'interdis la saisi de minuscule par la commande

Code:

---

If Char.IsLower(e.KeyChar) = True Then e.Handled = True ' Si minuscule ne saisi pas

---

Donc le code final est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If Char.IsNumber(e.KeyChar) = True Then e.Handled = True 'Si nombre ne saisi pas If Char.IsPunctuation(e.KeyChar) = True Then e.Handled = True 'Si nombre ne saisi pas If Char.IsSeparator(e.KeyChar) = True Then e.Handled = True 'Si caratère de séparation ne saisi pas If Char.IsSymbol(e.KeyChar) = True Then e.Handled = True 'Si symbole ne saisi pas Dim c As Char Select Case e.KeyChar Case "é", "è", "à", "ù" c = Nothing e.Handled = True 'supprime le son emit lors de l'appui sur l'une des 4 touches defini Case Else c = Char.ToUpper(e.KeyChar) End Select e.KeyChar = c

---

Merci à vous noftal et NanowHD pour vos conseils et en espérant que ce post puisse en aider d'autres :D