Ativar/desativar por código, as teclas Num Lock, Caps Lock e Scroll Lock
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Com a API GetKeyState() é possível identificar o status de cada uma das teclas Num Lock, Caps Lock e Scroll Lock. Para isso, basta informar o código correspondente ao da tecla na API e obter como resultado o valor 0 ou 1. O valor 0 indica que a tecla está desativada (Led apagado) e o valor 1 que a tecla está ativada (Led aceso).
Valores das teclas:
Num Lock = 144 ou pode fazer ser uso da constante vbKeyNumlock.
Caps Lock = 20 ou pode fazer ser uso daconstante vbKeyCapital.
Scroll Lock = 145
Option Compare Database
#If VBA7 Then
'versões 2010 e 2013
Public Declare PtrSafe Function GetKeyState Lib "user32"(ByVal nVirtKey As Long) As Long
#Else
'versões 2007 e anteriores
Public Declare Function GetKeyState Lib "user32"(ByVal nVirtKey As Long) As Long
#End if
--------------------------------------------------------------------------------------
Public Sub fncAtivarDesativarTecla(Tecla&, Ativar As Boolean) Dim ws As Object
Dim T$
Set ws = CreateObject("WScript.shell")
T = switch(Tecla=144,"{numlock}",Tecla=20,"{capslock}",Tecla= 145,"{scrolllock}")
If Ativar Then
'Ativar tecla que se encontra desativada If GetKeyState(Tecla) = 0 Then ws.SendKeys T Else
'Desativar tecla que se encontra ativada If GetKeyState(Tecla) = 1 Then ws.SendKeys T End If
Set ws = Nothing End Sub
Para ativar a tecla Caps Lock: Call fncAtivarDesativarTecla (20, true)
Para desativar a tecla Scroll Lock: Call fncAtivarDesativarTecla (145, false)
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |