Discussion :

[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 :

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

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.

[NanowHD]

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 :

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

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 :

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

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

Code :

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

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é

[Gildas22]

Bonjour ,

N'oublie pas d'importer :

Code :

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

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

Code :

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

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é

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 :

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

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é

[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.

[Gildas22]

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 :

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

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.

[noftal]

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

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

Code :

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

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é.