Activation clavier touche Verr.num

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Activation clavier touche Verr.num

mnyware

En vrai YATA !!!

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

Publicité

kiki29

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

mnyware

En vrai YATA !!!

j'essaye toute de suite
merci

kiki29

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

mnyware

En vrai YATA !!!

ça marche très bien

merci kiki29

hookiller

est il possible d'avoire se prog en VBScript

kiki29

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Activation clavier touche Verr.num

Sujets relatifs
Touche entrer qui valide le formulaire	validation d'un formulaire ajax via la touche "entrée"
Valeur touche clavier	Saisie clavier sans retour chariot
[shell] Redirection entrée standard clavier	Ordre des paramètres d'un GET (avec une touche de Domino et d'ExtJS)
besoin d'aide pour associer les touches clavier	event clavier differents sur une meme page
[mysql] Aide pour l'activation
Plus de sujets relatifs à : Activation clavier touche Verr.num

Page générée en 0.040 secondes