Activation clavier touche Verr.num

Marsh Posté le 25-08-2008 à 15:08:20

Salut à tous

Je veux qu'au démarrage d'une de mes applications les touches caps lock et num lock soit activés

j'ai trouvé un source permettant de le faire

ce qui ne marche pas :
les voyants des touches ne sont pas allumés
pour les touches majuscules ça marche mais pas le pavé numérique

Code :

//Module
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, kbOld As KeyboardBytes
Sub Active(vkKey As Long, Actif As Byte)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = Actif
SetKeyboardState kbArray
End Sub
//dans mon formulaire
Active vbKeyCapital, 1
Active vbKeyNumlock, 1

vous avez une autre solution ou des astuces ...
merci bien

Reply

Marsh Posté le 25-08-2008 à 15:08:20

Reply

Marsh Posté le 25-08-2008 à 15:16:28

Salut,à adapter à ton contexte
Insérer dans un module de Classe

Option Explicit

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

Dans un Module standard

Option Explicit

Sub Bouton1_QuandClic()
If NumLock = False Then NumLock = True
End Sub

Sub Bouton2_QuandClic()
If NumLock = True Then NumLock = False
End Sub

Reply

Marsh Posté le 25-08-2008 à 15:19:02

j'essaye toute de suite
merci

Reply

Marsh Posté le 25-08-2008 à 15:23:27

re,dans ton contexte dans module ThisWorkBook

Option Explicit

Private Sub Workbook_Open()
If NumLock = False Then NumLock = True
If CapsLock = False Then CapsLock = True
End Sub

Message édité par kiki29 le 25-08-2008 à 15:24:24

Reply

Marsh Posté le 25-08-2008 à 15:34:50

ça marche très bien

merci kiki29

Reply

Marsh Posté le 06-03-2010 à 15:52:58

est il possible d'avoire se prog en VBScript

Reply

Marsh Posté le 06-03-2010 à 17:57:46

Salut,qqch comme ceci, à toi de poursuivre

set WshShell = CreateObject("WScript.Shell" )
WshShell.SendKeys "{NUMLOCK}"

Message édité par kiki29 le 06-03-2010 à 17:58:00

Reply

Activation clavier touche Verr.num

Sujets relatifs:

Leave a Replay