Activation et désactivation de la touche MAJ

**taz devil** · 08/05/2013, 19h03

Bonjour
J ai créer une application access 2003 ou l on utilise une douchette a code barre
mais le soucis il arrive que la touche MAJ soit activé et cela change la lecture de la douchette. D ou ma question je voudrais savoir comment je peux faire pour désactivé la touche maj lors du chargement d un formulaire merci

**mumen** · 08/05/2013, 21h43

Bonjour

Quand tu dis la touche MAJ, tu veux dire Caps lock ?

Quelle est la différence produite par cette touche lors la lecture de code barres ?

Je ne sais pas comment inverser la touche, mais il est possible de savoir à la lecture l'état de cette touche et de rectifier ce qui entre avec une traduction du style :

Code :

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

1
2
3
4
5
Select case strTouche
Case "&" :strTouche= "1"
Case "é" :strTouche= "2"
Case """" :strTouche= "3"
etc.

**Dolphy35** · 09/05/2013, 14h50

Bonjour,

voici un code qui fonctionne très bien et simple d'utilisation.
1-Mettre ce code dans un module :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
 
''''********************************************************************************''''
'   Procédure utilisée pour simuler l'appuie des touches CapsLock, Numlock et ScrollLock
''''********************************************************************************''''
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) _
    As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
    Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" _
    (ByVal wCode As Long, ByVal wMapType As Long) As Long
 
Public Const VK_NUMLOCK = &H90
Public Const VK_SCROLL = &H91
Public Const VK_CAPITAL = &H14
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
Public Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)
 
  keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or 0, 0
  keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
  If Key = 20 And State = False Then
      keybd_event 16, 0, 0, 0
    keybd_event 16, 0, 2, 0
  End If
 
End Sub
 
Public Property Get CapsLock() As Boolean
  CapsLock = GetKeyState(VK_CAPITAL) = 1
End Property
 
Public Property Let CapsLock(ByVal Value As Boolean)
  SetKeyState VK_CAPITAL, Value
End Property
 
Public Property Get NumLock() As Boolean
  NumLock = GetKeyState(VK_NUMLOCK) = 1
End Property
 
Public Property Let NumLock(ByVal Value As Boolean)
  SetKeyState VK_NUMLOCK, Value
End Property
 
Public Property Get ScrollLock() As Boolean
  ScrollLock = GetKeyState(VK_SCROLL) = 1
End Property
 
Public Property Let ScrollLock(ByVal Value As Boolean)
  SetKeyState VK_SCROLL, Value
End Property

2-utilisation :

Code :

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

If CapsLock Then CapsLock = False

source du code

http://www.developpez.net/forums/d65...age-majuscule/

@+

**taz devil** · 27/05/2013, 17h01

Envoyé par Dolphy35

Bonjour,

voici un code qui fonctionne très bien et simple d'utilisation.
1-Mettre ce code dans un module :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
 
''''********************************************************************************''''
'   Procédure utilisée pour simuler l'appuie des touches CapsLock, Numlock et ScrollLock
''''********************************************************************************''''
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) _
    As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
    Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" _
    (ByVal wCode As Long, ByVal wMapType As Long) As Long
 
Public Const VK_NUMLOCK = &H90
Public Const VK_SCROLL = &H91
Public Const VK_CAPITAL = &H14
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
Public Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)
 
  keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or 0, 0
  keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
  If Key = 20 And State = False Then
      keybd_event 16, 0, 0, 0
    keybd_event 16, 0, 2, 0
  End If
 
End Sub
 
Public Property Get CapsLock() As Boolean
  CapsLock = GetKeyState(VK_CAPITAL) = 1
End Property
 
Public Property Let CapsLock(ByVal Value As Boolean)
  SetKeyState VK_CAPITAL, Value
End Property
 
Public Property Get NumLock() As Boolean
  NumLock = GetKeyState(VK_NUMLOCK) = 1
End Property
 
Public Property Let NumLock(ByVal Value As Boolean)
  SetKeyState VK_NUMLOCK, Value
End Property
 
Public Property Get ScrollLock() As Boolean
  ScrollLock = GetKeyState(VK_SCROLL) = 1
End Property
 
Public Property Let ScrollLock(ByVal Value As Boolean)
  SetKeyState VK_SCROLL, Value
End Property

2-utilisation :

Code :

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

If CapsLock Then CapsLock = False

source du code

http://www.developpez.net/forums/d65...age-majuscule/

@+

**taz devil** · 28/05/2013, 15h25

le code marche mais si je veux activer le num lock en ajoutant le code

Code :

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

If numlock Then numlock  = true

le code marche pas merci

**Dolphy35** · 30/05/2013, 00h15

Bonsoir,

Ceci est normal, en gros ton code test si NumLock est activé et si c'est le cas tu l'active. Donc en fait rien ne se passe.
Si tu veux tester le fait qu'il ne soit pas activé pour l'activer, utilise ce code :

Code :

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

If Not (NumLock) Then NumLock = True

@++

**taz devil** · 03/06/2013, 18h05

J ai remplacer

Code :

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

If numlock Then numlock  = true

par

Code :

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

If Not (NumLock) Then NumLock = True

sa passe pas

**taz devil** · 03/06/2013, 18h15

le code marche pour le caps lock sans problème même lorsque je met
If Not (NumLock) Then NumLock = True le code marche pour capslock
mais le numlock ne marche pas
en gros
le formulaire doit avoir par défaut

Code :

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

1
2
     capslock = false
     numlock = true

merci encore Dolphy35

**Dolphy35** · 03/06/2013, 19h41

salut

étonnant cela fonctionne bien chez moi avec le code plus haut

**taz devil** · 04/06/2013, 14h02

Oui sa marche j avais pas mis le bon code merci encore

Activation et désactivation de la touche MAJ [AC-2003]

VBA Access

Discussions similaires

Partager

Partager