bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Ativar/desativar por código, as teclas Num Lock, Caps Lock e Scroll Lock
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!


 

 


Não há comentário

Envie seu comentário: